Changeset 17434

Timestamp:

Apr 10, 2008, 9:39:18 PM (18 years ago)

Author:

eugene

Message:

only write out a single astrom file (for mef)

File:

• branches/eam_branch_20080408/ippScripts/scripts/warp_skycell.pl (modified) (2 diffs)

branches/eam_branch_20080408/ippScripts/scripts/warp_skycell.pl

@@ -137 +137 @@
 my ($astromFile, $astromName) = tempfile( "$outrootResolved.astrom.list.XXXX", UNLINK => !$save_temps);
 
+my $wrote_astrom = 0;
 foreach my $imfile (@$imfiles) {
     my $image = $imfile->{uri}; # Image name
@@ -159 +160 @@
     print $maskFile   "$mask\n";
     print $weightFile "$weight\n";
-    print $astromFile "$astrom\n";
+    
+    if (!$wrote_astrom) {
+        print $astromFile "$astrom\n";
+        # XXX simplify this?  only ever have one file for astrometry (must be MEF)
+        if ($astromSource eq 'PSASTRO.OUTPUT.MEF') { 
+            $wrote_astrom = 1;
+        }
+    }
 }
 close $imageFile;