Return to createtable.pl CVS log | Up to [Local Repository] / processmail |
version 3.1, 2008/03/24 16:01:47 | version 3.2, 2008/09/08 17:16:47 |
---|---|
Line 64 for (my $r=1; $r<=$ROUNDS; $r++) { | Line 64 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]} ) { | foreach my $file ( @{$FILES[$r]} ) { |