From cb5144f8097e50bb1f32ff22ddd298d0e363039b Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Wed, 3 Feb 2010 16:29:06 -0800
Subject: [PATCH] Check for a valid group before using it.

---
 lib/WebGUI/User.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/WebGUI/User.pm b/lib/WebGUI/User.pm
index cab115996..01db752e1 100644
--- a/lib/WebGUI/User.pm
+++ b/lib/WebGUI/User.pm
@@ -381,7 +381,8 @@ sub delete {
     $self->uncache;
 
     foreach my $groupId ( @{ $self->getGroups } ) {
-        WebGUI::Group->new($session, $groupId)->deleteUsers([$userId]);
+        my $group = WebGUI::Group->new($session, $groupId);
+        $group->deleteUsers([$userId]) if $group;
     }
 
     my $auth = $self->authInstance;