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