Index: branches/pap/ippToPsps/scripts/pspsSchema2xml.pl
===================================================================
--- branches/pap/ippToPsps/scripts/pspsSchema2xml.pl	(revision 27708)
+++ branches/pap/ippToPsps/scripts/pspsSchema2xml.pl	(revision 28003)
@@ -16,11 +16,11 @@
 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,5 +286,5 @@
         $type =~ s/TINYINT/TBYTE/;
         $type =~ s/INT/TLONG/;
-        $type =~ s/FLOAT/TFLOAT/;
+        $type =~ s/FLOAT/TDOUBLE/;
         $type =~ s/REAL/TFLOAT/;
         $type =~ s/DATE/TSTRING/;