Changeset 13019

Timestamp:

Apr 24, 2007, 5:46:03 PM (19 years ago)

Author:

Paul Price

Message:

Changing some 'constants' which may differ slightly (?) to 'variables'

File:

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

trunk/ippScripts/scripts/register_exp.pl

@@ -65 +65 @@
                            "exp_type", # Exposure type
                            "filter", # Filter used
+                           "dateobs", # Time of exposure
+                       ];
+
+# These values may vary across components; we will take the average
+use constant VARIABLES => [
+                           "ccd_temp", # CCD temperature
+                           "exp_time", # Exposure time
                            "airmass", # Airmass
                            "ra", # Right ascension
@@ -71 +78 @@
                            "alt", # Altitude
                            "az", # Azimuth
-                           "dateobs", # Time of exposure
-                       ];
-
-# These values may vary across components; we will take the average
-use constant VARIABLES => [
-                           "ccd_temp", # CCD temperature
-                           "exp_time", # Exposure time
                            ];
 
@@ -139 +139 @@
         }
         if ($values{$constant} ne $value) {
-            warn ("Value of $constant for $imfile->{REGISTER_CLASSID} doesn't match previous value");
-            &my_die ($exp_tag, $PS_EXIT_PROG_ERROR);
+            warn ("Value of $constant for " . $imfile->{REGISTER_CLASSID()} .
+                  " doesn't match previous value");
+            &my_die($exp_tag, $PS_EXIT_PROG_ERROR);
         }
     }