db/prgsrc/db.cgi - diff

Return to db.cgi CVS log

Up to [Local Repository] / db / prgsrc

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,'Ч'))).