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

This commit is contained in:
Graham Knop 2007-09-27 08:49:20 +00:00
parent 4172e78133
commit 21b37954c4

View file

@ -513,8 +513,11 @@ sub getAllGroupsFor {
my $self = shift;
my $groups = $self->getGroupsFor();
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 };
$groups = [ keys %unique ];
return $groups;