version 1.65, 2002/05/13 23:59:42
|
version 1.67, 2002/06/08 10:07:14
|
Line 821 sub PrintTournament {
|
Line 821 sub PrintTournament {
|
} |
} |
} else { |
} else { |
my ($qnum) = GetQNum($dbh); |
my ($qnum) = GetQNum($dbh); |
$output .= h2("âÁÎË ÷ÏÐÒÏÓÏ×: $qnum ×ÏÐÒÏÓÏ×") . p . "\n"; |
$output .= h2("âÁÎË ÷ÏÐÒÏÓÏ×: $qnum ×ÏÐÒÏÓ".&Suffix($qnum)) |
|
. p . "\n"; |
} |
} |
|
|
for ($i = 0; $i <= $#Tours; $i++) { |
for ($i = 0; $i <= $#Tours; $i++) { |
Line 1654 $sstr=~s/[^ÊÃÕËÅÎÇÛÝÚÈßÆÙ×ÁÐÒÏÌÄÖÜÑÞÓÍÉÔ
|
Line 1655 $sstr=~s/[^ÊÃÕËÅÎÇÛÝÚÈßÆÙ×ÁÐÒÏÌÄÖÜÑÞÓÍÉÔ
|
$sth->finish; |
$sth->finish; |
} |
} |
my $QuestionNumber=0; |
my $QuestionNumber=0; |
if (my $qnum=param('qnumber')){ |
my $qnum; |
|
if ($qnum=param('qnumber')){ |
my ($sth) = $dbh->prepare("SELECT QuestionId FROM Questions |
my ($sth) = $dbh->prepare("SELECT QuestionId FROM Questions |
WHERE ParentId=$tour AND Number=$qnum"); |
WHERE ParentId=$tour AND Number=$qnum"); |
$sth->execute; |
$sth->execute; |
$QuestionNumber=($sth->fetchrow)[0]||0; |
$QuestionNumber=($sth->fetchrow)[0]||0; |
} |
} |
if ($QuestionNumber) { |
if ($QuestionNumber) { |
|
print &PrintQuestion($dbh, $QuestionNumber, param('answer')||0, $qnum, 1); |
print &PrintQuestion($dbh, $QuestionNumber, param('answer'), 0, 1); |
# $dbh, $Id, $answer, $qnum, $title, $text |
} else { |
} else { |
print &PrintTournament($dbh, $tour, param('answer')); |
print &PrintTournament($dbh, $tour, param('answer')); |
} |
} |