Add way to generate grades to intradata-get
This commit is contained in:
parent
a036432edd
commit
b34f3db750
2 changed files with 90 additions and 1 deletions
|
|
@ -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";
|
||||
}
|
||||
|
|
|
|||
Reference in a new issue