Changeset 31279

Timestamp:

Apr 14, 2011, 1:25:27 PM (15 years ago)

Author:

rhenders

Message:

Writing comment to votable file; now picking up '_' characters in field names

File:

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

trunk/ippToPsps/perl/pspsSchema2xml.pl

@@ -307 +307 @@
 
     # parse line
-    if ($line =~ m/\s*([a-zA-Z0-9()-\[\]]+)\s+(.*)\s*--\/(.*)/) {
+    if ($line =~ m/\s*([a-zA-Z0-9()-_\[\]]+)\s+(.*)\s*--\/(.*)/) {
 
         $name = $1;
@@ -320 +320 @@
     }
     # no comment case
-    elsif ($line =~ m/\s*([a-zA-Z0-9()-\[\]]+)\s+(.*)/) {
+    elsif ($line =~ m/\s*([a-zA-Z0-9()-_\[\]]+)\s+(.*)/) {
 
         $name = $1;
@@ -394 +394 @@
             "arraysize" => $arraySize,
             "datatype" => $votType);
+    $votWriter->dataElement('DESCRIPTION', $comment);
     $votWriter->endTag();