Changeset 28818 for trunk/pstamp/scripts/detectability_respond.pl

Timestamp:

Jul 30, 2010, 4:48:28 PM (16 years ago)

Author:

watersc1

Message:

Fix odd type error

File:

• trunk/pstamp/scripts/detectability_respond.pl (modified) (3 diffs)

trunk/pstamp/scripts/detectability_respond.pl

@@ -569 +569 @@
         $columns = [
             # matching rownum from detectability original request
-            { name => 'ROWNUM',   type => 'V', writetype => TULONG }, 
+            { name => 'ROWNUM',   type => '20A', writetype => TSTRING }, 
             # any errors that occurred during processing
             { name => 'ERROR_CODE',   type => 'V', writetype => TULONG }, 
@@ -715 +715 @@
 #       print STDERR "$writeType $i $numRows $colName $status @{ $colData{$colName} }\n";
         $outFits->write_col( $writeType, $i + 1, 1, 1, $numRows, $colData{$colName}, $status );
+#       print "$writeType $i $numRows $colName $status\n";
         check_fitsio( $status );
-        
     }
     $outFits->close_file( $status );
@@ -730 +730 @@
         my $msg;                # Message to output
         Astro::FITS::CFITSIO::fits_get_errstatus( $status , $msg );
+        carp("CFITSIO error: $status => $msg");
         die "CFITSIO error: $msg\n";
     }