db/prgsrc/db.cgi - diff

Return to db.cgi CVS log

Up to [Local Repository] / db / prgsrc

version 1.133, 2004/03/17 10:59:16	version 1.134, 2004/05/02 20:48:30
Line 616 $sstr=~tr/йцукенгшщзхъфывапролджэячсмить	Line 616 $sstr=~tr/йцукенгшщзхъфывапролджэячсмить
#Ищем пересечение или объединение списков вопросов (значений %tasksof)	#Ищем пересечение или объединение списков вопросов (значений %tasksof)
foreach $sf (keys %tasksof)	foreach $sf (keys %tasksof)
{	{
$count{$_}++ foreach keys %{$tasksof{$sf}};	foreach (keys %{$tasksof{$sf}})
	{
	next if $forbidden{$_};
	$count{$_}++
	}

}	}
@tasks= ($all ? (grep {$count{$_}==$kvo} keys %count) :	@tasks= ($all ? (grep {$count{$_}==$kvo} keys %count) :
keys %count) ;	keys %count) ;
Line 2100 th {font-size: x-small; font-family : sa	Line 2105 th {font-size: x-small; font-family : sa
}	}



if (param('rand')) {	if (param('rand')) {
my ($type, $qnum) = ('', 12);	my ($type, $qnum) = ('', 12);
$type.=$TypeName{$_} foreach param('type');	$type.=$TypeName{$_} foreach param('type');