Fix gen_grading due to lastest modification
This commit is contained in:
parent
bedb084ffe
commit
95c6d77613
@ -80,7 +80,7 @@ sub process
|
||||
open my $xml, "<", "$basedir/$year/$project_id/traces/$dir/$login" or die $!;
|
||||
binmode $xml;
|
||||
|
||||
my $trace = Trace->new($xml);
|
||||
my $trace = Trace->new(join '', <$xml>);
|
||||
|
||||
my %tids = %{ $trace->getIds() };
|
||||
for my $kid (keys %tids)
|
||||
|
Reference in New Issue
Block a user