Index: trunk/ippToPsps/perl/convertPhotCodesToXml.pl
===================================================================
--- trunk/ippToPsps/perl/convertPhotCodesToXml.pl	(revision 32002)
+++ trunk/ippToPsps/perl/convertPhotCodesToXml.pl	(revision 32003)
@@ -4,5 +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,10 +26,5 @@
 
 
-
-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,32 +48,10 @@
         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();
-
-