--- db/prgsrc/updatedb.pl 2003/01/08 21:54:49 1.29 +++ 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.29 2003/01/08 21:54:49 roma7 Exp $ +=head1 $Id: updatedb.pl,v 1.30 2003/01/08 23:36:38 roma7 Exp $ =cut @@ -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)