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

Add new process for generating grading XML

Browse source
This commit is contained in:
Mercier Pierre-Olivier 2013-09-24 04:54:09 +02:00
commit ea7d623eae
4 changed files with 79 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

10
ACU/Grading.pm
View file

@ -35,17 +35,17 @@ sub _initialize
$self->{max} = $dom->documentElement()->getAttribute("max") // "20";
}
sub create_from_trace ($$)
sub create_from_ids
{
my $self = shift;
my $trace_id = shift;
my $trace_name = shift;
my $trace = shift;
my $ids = shift;
my $trace_id = $trace_name;
$trace_id =~ s/[^a-zA-Z0-9_]/_/g;
my $g = Grade->new($trace_id, $trace_name);
my $ids = $trace->getIds();
for my $id (sort( keys %{ $ids } ))
{
my $p = Point->new($ids->{$id}, $id, 0, 0);