--- processmail/createtable.pl	2008/03/24 16:01:47	3.1
+++ processmail/createtable.pl	2008/09/08 17:16:47	3.2
@@ -1,5 +1,5 @@
 #!/usr/local/bin/perl
-#$Id: createtable.pl,v 3.1 2008/03/24 16:01:47 boris Exp $
+#$Id: createtable.pl,v 3.2 2008/09/08 17:16:47 boris Exp $
 #
 #
 #
@@ -64,6 +64,15 @@ for (my $r=1; $r<=$ROUNDS; $r++) {
     }
 
     #
+    #  Удаляем старые рейтинги (Ivan A Derzhanski <iad58@mail.ru>)
+    #
+    for ($i=1;$i<=$MAXQUEST;$i++) {
+	foreach $answer (keys %{$answers[$i]}) {
+	    %{$answers[$i]->{$answer}->{teams}} = ();
+	}
+    }
+
+    #
     #  Читаем ответы в данном раунде
     #
     foreach my $file ( @{$FILES[$r]} ) {