db/prgsrc/db.cgi - diff

Return to db.cgi CVS log

Up to [Local Repository] / db / prgsrc

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'));
}	}