Changeset 31104 for trunk/ippToPsps/perl/pspsSchema2xml.pl

Timestamp:

Mar 31, 2011, 1:25:16 PM (15 years ago)

Author:

rhenders

Message:

using a default of 24 chars for string types in votable; changed votable file output name

File:

• trunk/ippToPsps/perl/pspsSchema2xml.pl (modified) (3 diffs)

trunk/ippToPsps/perl/pspsSchema2xml.pl

@@ -67 +67 @@
 
 # VOTable file
-my $votOutput = new IO::File(">votable.xml");
+my $votOutput = new IO::File(">tables.vot");
 my $votWriter = new XML::Writer(OUTPUT => $votOutput, DATA_MODE => 1, DATA_INDENT=>2);
 $votWriter->xmlDecl('UTF-8');
@@ -381 +381 @@
     # get VOTable type
     my $votType = "undef";
+    my $arraySize = 1;
     if ($type eq "TBYTE") {$votType = "unsignedByte";}
     elsif ($type eq "TSHORT") {$votType = "short";}
@@ -387 +388 @@
     elsif ($type eq "TFLOAT") {$votType = "float";}
     elsif ($type eq "TDOUBLE") {$votType = "double";}
-    elsif ($type eq "TSTRING") {$votType = "char";}
+    elsif ($type eq "TSTRING") {$votType = "char"; $arraySize = 24;}
 
     $votWriter->startTag('FIELD',
             "name" => $name,
+            "arraysize" => $arraySize,
             "datatype" => $votType);
     $votWriter->endTag();