epita-std/ACU
Archived
1
0
Fork 0
Code Releases Activity

Reset after grading

Browse source
This commit is contained in:
Mercier Pierre-Olivier 2013-09-21 16:33:49 +02:00
parent b6b1c02dd0
commit c9c74a2a22
1 changed files with 9 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
process/files/intradata_get.pl
View file

@ -115,8 +115,10 @@ sub grades_generate
for my $login (@logins) for my $login (@logins)
{ {
log DEBUG, "Generating grades for $login";
for my $dir (@trace_dirs) for my $dir (@trace_dirs)
{ {
log DEBUG, "Generating grades from $dir";
if (-f "$basedir/$year/$project_id/traces/$dir/$login.xml") if (-f "$basedir/$year/$project_id/traces/$dir/$login.xml")
{ {
open my $xmltrace, "<", "$basedir/$year/$project_id/traces/$dir/$login.xml" or croak "traces/$dir/$login.xml: $!"; open my $xmltrace, "<", "$basedir/$year/$project_id/traces/$dir/$login.xml" or croak "traces/$dir/$login.xml: $!";
@ -124,14 +126,21 @@ sub grades_generate
my $trace = Trace->new($xmltrace); my $trace = Trace->new($xmltrace);
close $xmltrace; close $xmltrace;
log DEBUG, "Fill from file: traces/$dir/$login.xml";
log TRACE, $trace->getIds;
$grading->fill($trace->getIds); $grading->fill($trace->getIds);
} }
} }
log DEBUG, "Computed grades: ".$grading->compute();
open my $xmlgrade, ">", "$basedir/$year/$project_id/grades/$login.xml" or croak "grades/$login.xml"; open my $xmlgrade, ">", "$basedir/$year/$project_id/grades/$login.xml" or croak "grades/$login.xml";
binmode $xmlgrade; binmode $xmlgrade;
print $xmlgrade $grading->computeXML($login); print $xmlgrade $grading->computeXML($login);
close $xmlgrade; close $xmlgrade;
$grading->reset();
} }
return "Ok"; return "Ok";