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

Fixing grading

Browse Source
This commit is contained in:
Mercier Pierre-Olivier 2013-11-11 17:16:03 +01:00
parent 74f44a836b
commit 464fcfc879
2 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ACU/Trace.pm
View File

@ -356,16 +356,15 @@ sub getIds
my $login = shift;
my %ids;
log TRACE, $self->{who};
if (!$login || !exists $self->{who} || $self->{who}{type} eq "group" || $self->{who}{login} eq $login)
{
while (my ($key, $value) = each %{ $self->{who}{values} })
while (my ($key, $value) = each %{ $self->{values} })
{
$ids{$key} = $value if ($key);
}
}
$ids{ $self->{id} } = $self->getValue($self->{id}, $login);
}
return %ids;
}

2
process/files/intradata_get.pl
View File

@ -140,7 +140,7 @@ sub grades_generate
close $xmltrace;
log DEBUG, "Fill from file: $tr_file";
log TRACE, $trace->getIds;
log TRACE, $trace->getIds($login);
$grading->fill($trace->getIds($login));
}