version 1.10, 2000/10/20 01:45:46
|
version 1.12, 2000/10/22 02:25:02
|
Line 64 sub getField {
|
Line 64 sub getField {
|
my($key); |
my($key); |
my($value) = (''); |
my($value) = (''); |
while (<$desc>) { |
while (<$desc>) { |
s/
//g; |
s/[
]//g; |
if ($key && /^\s*$/) { |
if ($key && /^\s*$/) { |
chomp $value; |
chomp $value; |
chomp $key; |
chomp $key; |
Line 78 sub getField {
|
Line 78 sub getField {
|
} |
} |
next if (/^\s*$/); |
next if (/^\s*$/); |
|
|
if (/^(.*)[:\.][\s]*$/ && !$key) { |
if (s/^(.*?)[:\.]\s*// && !$key) { |
$key = $1; |
$key = $1; |
|
$value=$_; |
next; |
next; |
} |
} |
if ($key) { |
if ($key) { |
Line 169 sub DeleteTournament {
|
Line 170 sub DeleteTournament {
|
} |
} |
my (@Tours) = &GetTours($dbh, $Id); |
my (@Tours) = &GetTours($dbh, $Id); |
foreach my $Tour (@Tours) { |
foreach my $Tour (@Tours) { |
DeleteTournament($dbh,$Tour,1); |
DeleteTournament($dbh,$Tour,$Id,0,1); |
} |
} |
my $sth = $dbh->prepare("DELETE FROM Questions |
my $sth = $dbh->prepare("DELETE FROM Questions |
WHERE ParentId=$Id"); |
WHERE ParentId=$Id"); |
Line 249 MAIN:
|
Line 250 MAIN:
|
WHERE Id=$TourId"); |
WHERE Id=$TourId"); |
} |
} |
$qnum = 0; |
$qnum = 0; |
$qtype = 'Ч'; |
|
$sth = $dbh->prepare("INSERT INTO Tournaments |
$sth = $dbh->prepare("INSERT INTO Tournaments |
(Title, Type, ParentId, CreatedAt) |
(Title, Type, ParentId, CreatedAt) |
VALUES ($value, 'Т', $TournamentId, |
VALUES ($value, 'Т', $TournamentId, |
Line 264 MAIN:
|
Line 264 MAIN:
|
next; |
next; |
} |
} |
if ($key =~ /Вопрос/) { |
if ($key =~ /Вопрос/) { |
|
if (!$TourId) { |
|
$qnum = 0; |
|
$sth = $dbh->prepare("INSERT INTO Tournaments |
|
(Title, Type, ParentId, CreatedAt) |
|
VALUES ('1', 'Т', $TournamentId, |
|
$CreatedAt)"); |
|
$sth->execute; |
|
$TourId = $sth->{mysql_insertid}; |
|
} |
my $query = "INSERT INTO Questions |
my $query = "INSERT INTO Questions |
(ParentId, Number, Type) |
(ParentId, Number, Type) |
VALUES ($TourId, $qnum+1, \'$qtype\')"; |
VALUES ($TourId, $qnum+1, \'$qtype\')"; |