From 0f3505a46f88d9c77f439cd8990943334f99d87b Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Tue, 30 Oct 2007 20:33:48 +0000
Subject: [PATCH] Group does not use Tie::CPHash (via the dead %group variable)
 nor WebGUI::Auth

---
 lib/WebGUI/Group.pm | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/lib/WebGUI/Group.pm b/lib/WebGUI/Group.pm
index c6de9f157..6546b5a19 100755
--- a/lib/WebGUI/Group.pm
+++ b/lib/WebGUI/Group.pm
@@ -16,7 +16,6 @@ package WebGUI::Group;
 
 use strict;
 use Tie::CPHash;
-use WebGUI::Auth;
 use WebGUI::LDAPLink;
 use WebGUI::Macro;
 use WebGUI::Utility;
@@ -984,11 +983,9 @@ If you specified "new" for groupId, you can use this property to specify an id y
 =cut
 
 sub new {
-    my ($class, %group);
-    tie %group, 'Tie::CPHash';
    	my $self = {};
     
-    $class              = shift;
+    my $class           = shift;
     $self->{_session}   = shift;
 	$self->{_groupId}   = shift;
 	my $override        = shift;