--- db/prgsrc/updatedb.pl	2003/01/09 19:48:44	1.32
+++ db/prgsrc/updatedb.pl	2003/01/09 19:53:23	1.33
@@ -28,7 +28,7 @@ The database, user and password are hard
 
 Dmitry Rubinstein
 
-=head1 $Id: updatedb.pl,v 1.32 2003/01/09 19:48:44 roma7 Exp $
+=head1 $Id: updatedb.pl,v 1.33 2003/01/09 19:53:23 roma7 Exp $
 
 =cut
 
@@ -146,9 +146,9 @@ sub SelectGroup {
 		$ParentId = 9999;
 		my $tempsource=$source;
 		my $temptname=$TourName;
-                $tempsource=~s/^\'(.*)\'$/$1;
-                $temptname=~s/^\'(.*)\'$/$1;
-	   	print UNSORTED "$tempsource".((12 -length($source))x' ')."\t$temptn\n";
+                $tempsource=~s/^\'(.*)\'$/$1/;
+                $temptname=~s/^\'(.*)\'$/$1/;
+	   	print UNSORTED "$tempsource".((12 -length($source))x' ')."\t$temptname\n";
 		$isunsorted=1;
 		$sth = $dbh->prepare("INSERT INTO Tournaments
 			      (Title, Type, ParentId, FileName)