version 1.126, 2003/12/19 01:44:47
|
version 1.128, 2004/01/10 22:52:20
|
Line 746 sub makewhere {
|
Line 746 sub makewhere {
|
$type .= ($_=$TypeName{$_}) foreach @type; |
$type .= ($_=$TypeName{$_}) foreach @type; |
my $where=' 0 '; |
my $where=' 0 '; |
foreach (@type) { |
foreach (@type) { |
$where.= " OR (Type ='$_') OR (Type ='$_Д') "; |
$where.= " OR (Type ='$_') OR (Type ='$_Д') OR (Type ='Д$_') "; |
} |
} |
$where.= "OR (Type='ЧБ')" if ($type=~/Ч|Б/); |
$where.= "OR (Type='ЧБ')" if ($type=~/Ч|Б/); |
return $where; |
return $where; |
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,'Ч'))). |