Index: trunk/ippToPsps/config/parse_vot.pl
===================================================================
--- trunk/ippToPsps/config/parse_vot.pl	(revision 36697)
+++ trunk/ippToPsps/config/parse_vot.pl	(revision 36706)
@@ -3,6 +3,6 @@
 # this thing will just parse the votables and print out in 'ken schema style'
 
-$wiki=1;
-
+#$wiki=1;
+$csv = 1;
 $infield = 0;
 $intable = 0;
@@ -33,5 +33,8 @@
 	if($datatype eq "long") {$datatype1 = "BIGINT 8";}
 
-	
+	if ($csv) {
+	    $datatype1 =~ s/ .//;
+
+	}
 
 	if ($_ =~ /.*default=\"/) {
@@ -49,8 +52,8 @@
 	if ($wiki) {
 	printf("||%-17s||   %-15s||   %-15s ||   %-5s||",$name, $unit, $datatype1, $default);
-	} else {
-	printf("%-17s   %-15s   %-15s    %-5s",$name, $unit, $datatype1, $default);
+	} elsif ($csv) {
+	    printf("%s,%s,%s,%s,\"",$name, $unit, $datatype1, $default);
 	}
-
+	
 
 	$infield = 1;
@@ -68,8 +71,9 @@
 	    if ($_ =~ /\<\/FIELD/) {
 		if ($wiki) { print "||";}
+		if ($csv) {print "\"";}
 		print "\n";
 		$infield = 0;
 	    }
-
+	    
 	} else {
 	    #not in field something new
@@ -80,24 +84,34 @@
 		$name =~ s/\".*//g;
 		$intable = 1;
-		print "---------------------------\n";
-		printf ("%-16s   ", $name);
+	        if ($csv) {
+		    print "$name\n";
+		} else {
+		    print "---------------------------\n";
+		    printf ("%-16s   ", $name);
+		}
 	    } else {
 		if ($intable) {
-		    	    if ($_ =~ /\<\/DESCRIPTION/) {
-		$t = $_;
-		chomp $t;
-		$t =~ s/\s+\<DESCRIPTION\>//;
-		$t =~ s/\<\/DESCRIPTION\>//;
-		print "$t\n";
-		print "---------------------------\n";
-		$intable = 1;
+		    if ($_ =~ /\<\/DESCRIPTION/) {
+			$t = $_;
+			chomp $t;
+			$t =~ s/\s+\<DESCRIPTION\>//;
+			$t =~ s/\<\/DESCRIPTION\>//;
+			if ($csv) {
+			    $dostuff = 1;
+			} else {
+			    print "$t\n";
+			    print "---------------------------\n";
+			}
+			$intable = 1;
+			
+		    }
+		    
+		}
+	    }
+	    if ($_ =~ /\<\/TABLE\>/) {
+		$intable = 0;
 	    }
 
-		}
-		if ($_ =~ /\<\/TABLE\>/) {
-		    $intable = 0;
-		}
-	    }
-
+	    
 	}
     }