Changeset 24507 for branches/pap_mops/ippScripts/scripts/publish_file.pl

Timestamp:

Jun 19, 2009, 8:47:32 AM (17 years ago)

Author:

Paul Price

Message:

Fix zero points for exposure time.

File:

• branches/pap_mops/ippScripts/scripts/publish_file.pl (modified) (2 diffs)

branches/pap_mops/ippScripts/scripts/publish_file.pl

@@ -107 +107 @@
         next if defined $comp->{quality} and $comp->{quality} > 0;
 
+        (carp "Bad zpt_obs or exp_time for component" and next) if not defined $comp->{zpt_obs} or not defined $comp->{exp_time};
+        my $zp = $comp->{zpt_obs} + 2.5 * log($comp->{exp_time}) / log(10);
+
         if ($stage eq 'diff') {
             my $skycell_id = $comp->{skycell_id};
@@ -112 +115 @@
             $files{"$skycell_id.neg"} = $ipprc->filename( "PPSUB.INVERSE.SOURCES", $path_base ) if
                 defined $comp->{bothways} and $comp->{bothways};
-            $zp{"$skycell_id.pos"} = $comp->{zpt_obs};
-            $zp{"$skycell_id.neg"} = $comp->{zpt_obs};
+            $zp{"$skycell_id.pos"} = $zp;
+            $zp{"$skycell_id.neg"} = $zp if defined $comp->{bothways} and $comp->{bothways};
         } elsif ($stage eq 'camera') {
             my $cam_id = $comp->{cam_id};
             $files{$cam_id} = $ipprc->filename( "PSASTRO.OUTPUT", $path_base );
-            $zp{$cam_id} = $comp->{zpt_obs};
+            $zp{$cam_id} = $zp;
         }
     }