--- a/scripts/gettd.pl	Fri Oct 30 15:34:26 2009 +0000
+++ b/scripts/gettd.pl	Thu Nov 05 12:56:48 2009 +0000
@@ -153,13 +153,12 @@
 			      $relroad =~ s/\n//sg;
 			      
             $skipfirst =1; #skipping the header of the table         
-      #     while ($relroad =~ m/title\=\"(.*?)\"\>(.*)/g) {
             while ($relroad =~ m/\<tr\>(.*?)\<\/tr(.*)/sg){
                   $myfeat=$1;
                   $relroad =$2;
                   if ($skipfirst) {$skipfirst=0;next;}
                   $package="";
-                  if  ($myfeat =~ m/title\=\"(.*?)\"\>/sg) {  $package=$1; }
+                  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/\<.*?\>//sg;