version 1.65, 2002/05/13 23:59:42
|
version 1.66, 2002/05/14 00:12:35
|
Line 1654 $sstr=~s/[^ÊÃÕËÅÎÇÛÝÚÈßÆÙ×ÁÐÒÏÌÄÖÜÑÞÓÍÉÔ
|
Line 1654 $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')); |
} |
} |