Changeset 32337 for branches/eam_branches/ipp-20110710/ippToPsps/perl/convertPhotCodesToXml.pl

Timestamp:

Sep 6, 2011, 11:00:22 AM (15 years ago)

Author:

eugene

Message:

merge changes from trunk

File:

• branches/eam_branches/ipp-20110710/ippToPsps/perl/convertPhotCodesToXml.pl (modified) (3 diffs)

branches/eam_branches/ipp-20110710/ippToPsps/perl/convertPhotCodesToXml.pl

@@ -4 +4 @@
 use strict;
 use IPC::Cmd 0.36 qw( can_run run );
-use XML::Writer;
 use Getopt::Long qw( GetOptions :config auto_help auto_version gnu_getopt );
 use Pod::Usage qw( pod2usage );
@@ -27 +26 @@
 
 
-
-my $output = new IO::File(">$outputPath");
-my $writer = new XML::Writer(OUTPUT => $output, DATA_MODE => 1, DATA_INDENT=>2);
-$writer->xmlDecl('UTF-8');
-
-$writer->startTag('table', "name" => "PhotoCal");
+open (DATOUT, ">".$outputPath); 
 
 open (PHOTCODES, $inputPath);
@@ -54 +48 @@
         my $extinction = $columns[5];
 
-        $writer->startTag('row',
-                "photoCalID" => $photCode,
-                "filterID" => $filter,
-                "photoCodeDesc" => $description,
-                "AB" => "0.0", # TODO
-                "zeropoint" => $zeroPoint,
-                "extinction" => $extinction,
-                "colorterm" => "0.0", # TODO
-                "colorExtn" => "0.0", # TODO
-                "orphanCalColor" => "0.0", # TODO
-                "orphanCalColorErr" => "0.0", # TODO
-                "startDate" => "54000.");
-
-        $writer->endTag();
-
-
+        print DATOUT "          <TR><TD>$photCode</TD><TD>$filter</TD><TD>$description</TD><TD>0.0</TD><TD>$zeroPoint</TD><TD>$extinction</TD><TD>0.0</TD><TD>0.0</TD><TD>0.0</TD><TD>0.0</TD><TD>54000.0</TD></TR>\n";
 
     }
 }
 
-$writer->endTag();
-
-
+close DATOUT;
 close PHOTCODES;
 
-# finish up XML
-#$writer->endTag();
-$writer->end();
-
-