Archived
1
0

Fix gen_grading due to lastest modification

This commit is contained in:
Mercier Pierre-Olivier 2013-11-14 14:19:45 +01:00
parent bedb084ffe
commit 95c6d77613

View File

@ -80,7 +80,7 @@ sub process
open my $xml, "<", "$basedir/$year/$project_id/traces/$dir/$login" or die $!; open my $xml, "<", "$basedir/$year/$project_id/traces/$dir/$login" or die $!;
binmode $xml; binmode $xml;
my $trace = Trace->new($xml); my $trace = Trace->new(join '', <$xml>);
my %tids = %{ $trace->getIds() }; my %tids = %{ $trace->getIds() };
for my $kid (keys %tids) for my $kid (keys %tids)