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]; |