version 1.31, 2003/01/09 01:43:21
|
version 1.33, 2003/01/09 19:53:23
|
Line 144 sub SelectGroup {
|
Line 144 sub SelectGroup {
|
# Теперь, если файла нет в дереве турниров, никаких вопросов не |
# Теперь, если файла нет в дереве турниров, никаких вопросов не |
# задаётся, а вместо этого он добавляется в группу 9999 |
# задаётся, а вместо этого он добавляется в группу 9999 |
$ParentId = 9999; |
$ParentId = 9999; |
print UNSORTED "$source".((12 -length($source))x' ')."\t$TourName\n"; |
my $tempsource=$source; |
|
my $temptname=$TourName; |
|
$tempsource=~s/^\'(.*)\'$/$1/; |
|
$temptname=~s/^\'(.*)\'$/$1/; |
|
print UNSORTED "$tempsource".((12 -length($source))x' ')."\t$temptname\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) |