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

7
ACU/Trace.pm
View File

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

2
process/files/intradata_get.pl
View File

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