From 9f94bbead81e164247a8639cc267544549b15ad4 Mon Sep 17 00:00:00 2001
From: Len Kranendonk <len@webgui-svn>
Date: Sun, 15 Feb 2004 18:58:30 +0000
Subject: [PATCH] Bugfix in getGroupsInGroup function

---
 lib/WebGUI/Grouping.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/WebGUI/Grouping.pm b/lib/WebGUI/Grouping.pm
index 5463ab2eb..a11692486 100755
--- a/lib/WebGUI/Grouping.pm
+++ b/lib/WebGUI/Grouping.pm
@@ -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;