version 1.10, 2000/10/20 01:45:46
|
version 1.11, 2000/10/20 03:18:38
|
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 249 MAIN:
|
Line 249 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 263 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\')"; |