Changeset 30242

Timestamp:

Jan 12, 2011, 1:26:27 PM (15 years ago)

Author:

watersc1

Message:

forgot to test that I'd defined all the variables.

File:

• trunk/ippScripts/scripts/register_imfile.pl (modified) (3 diffs)

trunk/ippScripts/scripts/register_imfile.pl

@@ -179 +179 @@
 if (uc(&value_for_flag ($cmdflags, "NULL", "-class_id"))  eq "NULL") { &my_die_for_add ("class_id  not found", $exp_id, $tmp_exp_name, $tmp_class_id, $uri, $PS_EXIT_CONFIG_ERROR); }
 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 $command = "$regtool -addprocessedimfile";
@@ -207 +208 @@
 my $ra        = &value_for_flag($cmdflags, 0.0, "-ra");
 my $dec       = &value_for_flag($cmdflags, 0.0, "-decl");
-my $dateobs   = &value_for_flag($cmdflags, 0.0, "-dateobs");
+
 
 # if the needed data is available, pass it to sunmoon:
@@ -379 +380 @@
     my $sunrise = shift;
 
-    my $date,$time;
+    my ($date,$time);
 
     if ($dateobs =~ /T/) {