From 62df11ac91a4bcf6ac6997f75f632f856c761fd5 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Tue, 7 Apr 2009 17:29:46 +0000
Subject: [PATCH] Remove old legacy code.

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

diff --git a/lib/WebGUI/User.pm b/lib/WebGUI/User.pm
index 6aa9819e6..bb6ac9460 100644
--- a/lib/WebGUI/User.pm
+++ b/lib/WebGUI/User.pm
@@ -641,8 +641,7 @@ The group that you wish to verify against the user. Defaults to group with Id 3
 =cut
 
 sub isInGroup {
-   my (@data, $groupId);
-   my ($self, $gid, $secondRun) = @_;
+   my ($self, $gid) = @_;
    $gid = 3 unless $gid;
    my $uid = $self->userId;
    ### The following several checks are to increase performance. If this section were removed, everything would continue to work as normal.