Changeset 28003 for branches/pap/ippToPsps/scripts/pspsSchema2xml.pl

Timestamp:

May 18, 2010, 12:49:05 PM (16 years ago)

Author:

eugene

Message:

merging changes from trunk into branches/pap

Location:

branches/pap

Files:

• . (modified) (1 prop)
• ippToPsps/scripts/pspsSchema2xml.pl (modified) (2 diffs)

branches/pap/ippToPsps/scripts/pspsSchema2xml.pl

@@ -16 +16 @@
 use Pod::Usage qw( pod2usage );
 
-
-my ($schemaPath, $type);
+my $schemaPath = undef;
+my $type = undef;
 
 # get user args
 GetOptions(
-        'schema=s' => \$schemaPath,
-        'type=s' => \$type,
+        'schema|s=s' => \$schemaPath,
+        'type|t=s' => \$type,
         ) or pod2usage( 2 );
 
@@ -286 +286 @@
         $type =~ s/TINYINT/TBYTE/;
         $type =~ s/INT/TLONG/;
-        $type =~ s/FLOAT/TFLOAT/;
+        $type =~ s/FLOAT/TDOUBLE/;
         $type =~ s/REAL/TFLOAT/;
         $type =~ s/DATE/TSTRING/;