--- a/scripts/gettd.pl	Mon Dec 07 17:07:46 2009 +0000
+++ b/scripts/gettd.pl	Thu Dec 10 17:04:09 2009 +0000
@@ -76,10 +76,11 @@
 	($release,$package,$features,$myfile,$domain)=@_;
 	
   $release =~ s/\\//sg;	
-	
+	$csvdel ="\",\"";
+	$invcoma ="\"";
  if ($newtdformat) {
   $package =~ s/backlog//sgi;
-  print $myfile " $release, $domain, $package, $myfeat\n";
+  print $myfile "$invcoma $release $csvdel $domain $csvdel $package $csvdel $myfeat $invcoma\n";
   
  } else {
 		
@@ -106,7 +107,7 @@
 	$mysubfeat =~ s/\<.*?\>//sg;
 	
 
-	print $myfile " $release, $domain, $package, $myfeat, $mysubfeat\n";
+	print $myfile "$invcoma $release $csvdel $domain $csvdel $package $csvdel $myfeat $csvdel $csvdel $csvdel $mysubfeat $invcoma\n";
 	
 	$mysubfeat = "";	
 	}
@@ -160,7 +161,7 @@
                   $package="";
                   if  ($myfeat =~ m/title\=\"(.*?)\"/sg) {  $package=$1; } #looking for package name
                                   
-                  $myfeat=~ s/\<\/td\>\<td\>/-/sg;   #TODO change - to , when the old format is dead
+                  $myfeat=~ s/\<\/td\>\<td\>/\",\"/sg;   
                   $myfeat=~ s/\<.*?\>//sg;
                  
                  if ($myfeat =~m/[A-z]/sg ){prntfeatures($_,$package,$myfeat,outputfile,$domain);}