finding all groups or users don't fail if one invalid group
This commit is contained in:
parent
4172e78133
commit
21b37954c4
1 changed files with 5 additions and 2 deletions
|
|
@ -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;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue