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

Fix syntax

Browse source
This commit is contained in:
Mercier Pierre-Olivier 2013-11-11 16:15:59 +01:00
parent 15f89a5e39
commit 440ace2654
1 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

14
ACU/Trace.pm
View file

@ -108,7 +108,7 @@ sub getIds
my %tmp = $group->getIds($login);
while (my ($key, $value) = each %tmp)
{
%ids{$key} = $value;
$ids{$key} = $value;
}
}
return %ids;
@ -223,13 +223,13 @@ sub getIds
foreach my $group (@{ $self->{groups} })
{
my %tmp = $group->getIds($login);
while (($key, $value) = each %tmp)
while (my ($key, $value) = each %tmp)
{
%ids{$key} = $value;
$ids{$key} = $value;
}
}
%ids{ $self->{id} } = $self->getValue($self->{id}, $login);
$ids{ $self->{id} } = $self->getValue($self->{id}, $login);
return %ids;
}
@ -238,7 +238,7 @@ sub getValue
{
my $self = shift;
my $id = shift // $self->{id};
my $login = shift
my $login = shift;
if ($id eq $self->{id})
{
@ -358,11 +358,11 @@ sub getIds
{
while (my ($key, $value) = each %{ $self->{who}{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;
}