version 1.29, 2003/01/08 21:54:49
|
version 1.30, 2003/01/08 23:36:38
|
Line 143 sub SelectGroup {
|
Line 143 sub SelectGroup {
|
} else { |
} else { |
# Теперь, если файла нет в дереве турниров, никаких вопросов не |
# Теперь, если файла нет в дереве турниров, никаких вопросов не |
# задаётся, а вместо этого он добавляется в группу 9999 |
# задаётся, а вместо этого он добавляется в группу 9999 |
$ParentId = 9999; |
$ParentId = 9999; |
print UNSORTED "$source\n"; |
print UNSORTED "$source".((12 -length($source))x' ')."\t$TourName\n"; |
$isunsorted=1; |
$isunsorted=1; |
$sth = $dbh->prepare("INSERT INTO Tournaments |
$sth = $dbh->prepare("INSERT INTO Tournaments |
(Title, Type, ParentId, FileName) |
(Title, Type, ParentId, FileName) |