--- processmail/subroutines.pl	2002/02/04 17:18:33	1.1
+++ processmail/subroutines.pl	2005/01/24 03:14:49	1.2
@@ -1,7 +1,7 @@
 # В этот файл собраны процедуры, общие для всей системы
 # работы с ответами.
 #
-#$Id: subroutines.pl,v 1.1 2002/02/04 17:18:33 boris Exp $
+#$Id: subroutines.pl,v 1.2 2005/01/24 03:14:49 boris Exp $
 #
 sub readhash
 {
@@ -65,9 +65,11 @@ sub readmail
 	    {
 		my @teamanswers = ();
 		my %teamhash = ('answers' => \@teamanswers, 
-				'regnum' => $2);
+				'regnum' => $2,
+				'numletters'=>0);
 		$$table{$team} = \%teamhash;
 	    }
+	    $$table{$team}->{'numletters'}++;
 	    if ($$table{$team}->{regnum} != $2)
 	    {
 		print STDERR "Warning: Team $team uses registration nos. ",
@@ -257,10 +259,13 @@ sub rate_questions
 #
 sub find_scores
 {
-    my ($teams,$answers,$ratings) = @_;
+    my ($teams,$answers,$ratings,$factor) = @_;
     foreach $team (keys %$teams)
     {
-	$$teams{$team}->{score} = 0;
+	if (!defined($factor)) {
+	    $factor=1;
+	}
+	$$teams{$team}->{score} *=$factor;
 	$$teams{$team}->{rating} = 0;
 	for ($i=1;$i<=$MAXQUEST;$i++)
 	{