Changeset 30812 for branches/eam_branches/ipp-20110213/ippScripts/scripts/register_imfile.pl

Timestamp:

Mar 6, 2011, 2:34:55 PM (15 years ago)

Author:

eugene

Message:

updates from trunk

File:

• branches/eam_branches/ipp-20110213/ippScripts/scripts/register_imfile.pl (modified) (1 diff)

branches/eam_branches/ipp-20110213/ippScripts/scripts/register_imfile.pl

@@ -181 +181 @@
 if (uc(&value_for_flag ($cmdflags, "NULL", "-exp_type"))  eq "NULL") { &my_die_for_add ("exp_type  not found", $exp_id, $tmp_exp_name, $tmp_class_id, $uri, $PS_EXIT_CONFIG_ERROR); }
 my $dateobs   = &value_for_flag($cmdflags, 0.0, "-dateobs");
+my $exp_type  = &value_for_flag($cmdflags, "NULL", "-exp_type");
 
 my $command = "$regtool -addprocessedimfile";