Index: /tags/ipp-20101215/ippScripts/scripts/register_imfile.pl
===================================================================
--- /tags/ipp-20101215/ippScripts/scripts/register_imfile.pl	(revision 30242)
+++ /tags/ipp-20101215/ippScripts/scripts/register_imfile.pl	(revision 30243)
@@ -179,4 +179,5 @@
 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,5 +208,5 @@
 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,5 +380,5 @@
     my $sunrise = shift;
 
-    my $date,$time;
+    my ($date,$time);
 
     if ($dateobs =~ /T/) {