--- processmail/subroutines.pl	2005/02/16 22:20:08	1.5
+++ processmail/subroutines.pl	2008/03/23 17:50:50	3.0
@@ -1,7 +1,7 @@
 # В этот файл собраны процедуры, общие для всей системы
 # работы с ответами.
 #
-#$Id: subroutines.pl,v 1.5 2005/02/16 22:20:08 boris Exp $
+#$Id: subroutines.pl,v 3.0 2008/03/23 17:50:50 boris Exp $
 #
 sub readhash
 {
@@ -238,10 +238,13 @@ sub rate_questions
 
 #
 # Подсчитываем рейтинги команд
+# @{$nopoint_questions} - список номеров вопросов, идущих вне зачёта.
+# Для них проставляются плясы/минусы, но они не учитываются в подсчёте
+# очков и рейтингов команд.
 #
 sub find_scores
 {
-    my ($teams,$answers,$ratings,$round,$factor) = @_;
+    my ($teams,$answers,$ratings,$round,$factor,$nopoint_questions) = @_;
     foreach $team (keys %$teams)
     {
 	if (!defined($factor)) {
@@ -254,6 +257,9 @@ sub find_scores
 	    my $answer=$$teams{$team}->{answers}[$i];
 	    if ($$answers[$i]->{$answer}{score} eq '+')
 	    {
+		next if  ( @{$nopoint_questions} && 
+			  grep($_==$i, @{$nopoint_questions})
+			 );
 		$$teams{$team}->{score}  += 1;
 		$$teams{$team}->{rating} +=
 		    $$ratings[$i];