Archived
1
0
Fork 0

Fixing grading

This commit is contained in:
Mercier Pierre-Olivier 2013-11-11 17:16:03 +01:00
commit 464fcfc879
2 changed files with 4 additions and 5 deletions

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);
$ids{ $self->{id} } = $self->getValue($self->{id}, $login);
}
return %ids;
}