version 1.126, 2003/12/19 01:44:47
|
version 1.127, 2003/12/19 08:05:01
|
Line 1062 sub PrintTournament {
|
Line 1062 sub PrintTournament {
|
my ($qnum1) = GetQNum($dbh,1); |
my ($qnum1) = GetQNum($dbh,1); |
$output .= h2("База вопросов"). |
$output .= h2("База вопросов"). |
h3("$qnum запис".&Suffix2($qnum). |
h3("$qnum запис".&Suffix2($qnum). |
" (не повторяется $qnum1)"); |
" (уникальных $qnum1)"); |
|
|
# h4("<table>". |
# h4("<table>". |
# Tr(td("Из них:"), td("Вопросов ЧГК: ".countz($dbh,'Ч'))). |
# Tr(td("Из них:"), td("Вопросов ЧГК: ".countz($dbh,'Ч'))). |