Changeset 39209 for trunk

Timestamp:

Dec 2, 2015, 10:14:56 AM (11 years ago)

Author:

bills

Message:

When parsing chip stage job use cam_path_base if it is defined which it will be if
releasetool is used to look up the exposure.

File:

• trunk/PS-IPP-PStamp/lib/PS/IPP/PStamp/Job.pm (modified) (6 diffs)

trunk/PS-IPP-PStamp/lib/PS/IPP/PStamp/Job.pm

@@ -746 +746 @@
         my $mask_base;
         if ($want_astrom) {
-            if ($selectedAstrom) {
+            if ($out->{cam_path_base}) {
+                # XXX Cheating here
+                my $astromSource = 'PSASTRO.OUTPUT';
+                $out->{astrom} = $ipprc->filename($astromSource, $out->{cam_path_base});
+            } elsif ($selectedAstrom) {
                 $out->{astrom} = $selectedAstrom;
                 $out->{cam_path_base} = $selectedAstrom;
@@ -763 +767 @@
                 }
             }
+            # XXX: cheating here
             # XXX: do this right by looking at the recipe
             $mask_base = $out->{cam_path_base};
@@ -1471 +1476 @@
     if (!$astromSource) {
         if ($camera eq "GPC1") {
-            # CHEATER !
+            # XXX: CHEATER !
             $astromSource = "PSASTRO.OUTPUT";
         } else {
@@ -1489 +1494 @@
     }
 
-    # XXX: Is this code correct if ASTROM.SOURCE ne "PSASTRO.OUTPUT"
+    # XXX: Is this code correct if ASTROM.SOURCE ne "PSASTRO.OUTPUT" ?
     my $astromFile = $ipprc->filename($astromSource, $camRoot);
     if (!$astromFile) {
@@ -1939 +1944 @@
     my $now = gettimeofday();
     my $dtime_tool = $now - $start_tool;
-    print "Time to run $program: $dtime_tool\n";
+    # XXX: shouldn't this be if $verbose?
+    print "Time to run $program: $dtime_tool\n" ; # if $verbose;
 
     my $buf = join "", @$stdout_buf;
@@ -1953 +1959 @@
 
     my $dtime_parse = gettimeofday() - $start_parse;
-    print "Time to parse results from $program: $dtime_parse\n";
+    # XXX: shouldn't this be if $verbose?
+    print "Time to parse results from $program: $dtime_parse\n" ; # if $verbose;
 
     return $results;