processmail/subroutines.pl - diff

Return to subroutines.pl CVS log

Up to [Local Repository] / processmail

version 1.5, 2005/02/16 22:20:08	version 3.0, 2008/03/23 17:50:50
Line 238 sub rate_questions	Line 238 sub rate_questions

#	#
# Подсчитываем рейтинги команд	# Подсчитываем рейтинги команд
	# @{$nopoint_questions} - список номеров вопросов, идущих вне зачёта.
	# Для них проставляются плясы/минусы, но они не учитываются в подсчёте
	# очков и рейтингов команд.
#	#
sub find_scores	sub find_scores
{	{
my ($teams,$answers,$ratings,$round,$factor) = @_;	my ($teams,$answers,$ratings,$round,$factor,$nopoint_questions) = @_;
foreach $team (keys %$teams)	foreach $team (keys %$teams)
{	{
if (!defined($factor)) {	if (!defined($factor)) {
Line 254 sub find_scores	Line 257 sub find_scores
my $answer=$$teams{$team}->{answers}[$i];	my $answer=$$teams{$team}->{answers}[$i];
if ($$answers[$i]->{$answer}{score} eq '+')	if ($$answers[$i]->{$answer}{score} eq '+')
{	{
	next if ( @{$nopoint_questions} &&
	grep($_==$i, @{$nopoint_questions})
	);
$$teams{$team}->{score} += 1;	$$teams{$team}->{score} += 1;
$$teams{$team}->{rating} +=	$$teams{$team}->{rating} +=
$$ratings[$i];	$$ratings[$i];