version 1.3, 2000/10/17 12:17:15
|
version 1.4, 2000/10/19 22:34:56
|
Line 336 sub PrintTour {
|
Line 336 sub PrintTour {
|
my ($qnum) = $Tour{'QuestionsNum'}; |
my ($qnum) = $Tour{'QuestionsNum'}; |
my ($suffix) = &Suffix($qnum); |
my ($suffix) = &Suffix($qnum); |
|
|
$output .= h2({align=>"center"}, $Tour{"Title"} . |
$output .= h2({align=>"center"}, $Tournament{"Title"}, |
|
"<br>", $Tour{"Title"} . |
" ($qnum вопрос$suffix)\n") . p; |
" ($qnum вопрос$suffix)\n") . p; |
|
|
my (@Questions) = &GetTourQuestions($dbh, $Id); |
my (@Questions) = &GetTourQuestions($dbh, $Id); |