oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

finding all groups or users don't fail if one invalid group

Browse source
This commit is contained in:
Graham Knop 2007-09-27 08:49:20 +00:00
parent 4172e78133
commit 21b37954c4
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lib/WebGUI/Group.pm
View file

@ -513,8 +513,11 @@ sub getAllGroupsFor {
my $self = shift; my $self = shift;
my $groups = $self->getGroupsFor(); my $groups = $self->getGroupsFor();
foreach my $gid (@{ $groups }) { foreach my $gid (@{ $groups }) {
push @{ $groups }, @{ WebGUI::Group->new($self->session, $gid)->getAllGroupsFor() }; my $group = WebGUI::Group->new($self->session, $gid);
} if ($group) {
push @{ $groups }, @{ $group->getAllGroupsFor() };
}
}
my %unique = map { $_ => 1 } @{ $groups }; my %unique = map { $_ => 1 } @{ $groups };
$groups = [ keys %unique ]; $groups = [ keys %unique ];
return $groups; return $groups;