Archived
1
0
Fork 0

Add way to generate grades to intradata-get

This commit is contained in:
Mercier Pierre-Olivier 2013-09-21 15:34:30 +02:00
commit b34f3db750
2 changed files with 90 additions and 1 deletions

View file

@ -30,7 +30,7 @@ sub _initialize
{
my $self = shift;
my $dom = XML::LibXML->load_xml(IO => shift);
my $dom = XML::LibXML->load_xml(string => shift);
$self->{tree} = $self->parseGrade($dom->documentElement());
$self->{max} = $dom->documentElement()->getAttribute("max") // "20";
}