Bugfix in getGroupsInGroup function

This commit is contained in:
Len Kranendonk 2004-02-15 18:58:30 +00:00
parent 8eed77ae08
commit 9f94bbead8

View file

@ -254,6 +254,7 @@ A boolean value to determine whether the method should return the groups directl
=cut
sub getGroupsInGroup {
return undef unless $_[0];
my $groups = WebGUI::SQL->buildArrayRef("select groupId from groupGroupings where inGroup=$_[0]");
if ($_[1]) {
my @groupsOfGroups = @$groups;