--- db/prgsrc/updatedb.pl	2002/11/11 09:57:49	1.28
+++ db/prgsrc/updatedb.pl	2003/01/08 23:36:38	1.30
@@ -28,7 +28,7 @@ The database, user and password are hard
 
 Dmitry Rubinstein
 
-=head1 $Id: updatedb.pl,v 1.28 2002/11/11 09:57:49 roma7 Exp $
+=head1 $Id: updatedb.pl,v 1.30 2003/01/08 23:36:38 roma7 Exp $
 
 =cut
 
@@ -36,7 +36,7 @@ use vars qw($opt_i);
 
 use Getopt::Std;
 getopts('i');
-
+#open STDERR, ">errors";
 my $Interactive=$opt_i || 0;
 
 
@@ -143,8 +143,8 @@ sub SelectGroup {
     } else {
 # Теперь, если файла нет в дереве турниров, никаких вопросов не 
 # задаётся, а вместо этого он добавляется в группу 9999
-	$ParentId = 9999;
-		print UNSORTED "$source\n";	
+		$ParentId = 9999;
+	   	print UNSORTED "$source".((12 -length($source))x' ')."\t$TourName\n";
 		$isunsorted=1;
 		$sth = $dbh->prepare("INSERT INTO Tournaments
 			      (Title, Type, ParentId, FileName)