From 829bb7739ee1e3d2598e8b643f2bf55ecdd9e3b0 Mon Sep 17 00:00:00 2001
From: Doug Bell <doug@plainblack.com>
Date: Mon, 19 Apr 2010 18:55:45 -0500
Subject: [PATCH] add back string literal identifier

---
 lib/WebGUI/Group.pm | 8 ++++----
 lib/WebGUI/User.pm  | 6 +++---
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/lib/WebGUI/Group.pm b/lib/WebGUI/Group.pm
index 14a7f39e3..b1a35e7d7 100644
--- a/lib/WebGUI/Group.pm
+++ b/lib/WebGUI/Group.pm
@@ -126,7 +126,7 @@ not be added to any group.  Groups may not be added to themselves.
 sub addGroups {
 	my $self = shift;
 	my $groups = shift;
-	$self->session->cache->remove($self->getId);
+	$self->session->cache->remove("group_" . $self->getId); 
 	GROUP: foreach my $gid (@{$groups}) {
 		next if ($gid eq '1');
 		next if ($gid eq $self->getId);
@@ -233,7 +233,7 @@ sub clearCaches {
 	my $groups = $self->getAllGroupsFor();
     my $cache = $self->session->cache;
 	foreach my $group ( $self->getId, @{ $groups } ) {
-		$cache->remove($group);
+		$cache->remove("group_".$group);
 	}
     my $stow = $self->session->stow;
 	$stow->delete("groupObj");
@@ -562,7 +562,7 @@ sub getAllUsers {
 	my $loopCount = shift;
 	my $expireTime = 0;
 	my $cache = $self->session->cache;
-	my $value = $cache->get($self->getId);
+	my $value = $cache->get("group_".$self->getId);
 	return $value if defined $value;
 	my @users = ();
 	push @users,
@@ -587,7 +587,7 @@ sub getAllUsers {
 	}
 	my %users = map { $_ => 1 } @users;
 	@users = keys %users;
-	$cache->set($self->getId, \@users, $self->groupCacheTimeout);
+	$cache->set("group_".$self->getId, \@users, $self->groupCacheTimeout);
 	return \@users;
 }
 
diff --git a/lib/WebGUI/User.pm b/lib/WebGUI/User.pm
index ecf85a14e..a7ece5df6 100644
--- a/lib/WebGUI/User.pm
+++ b/lib/WebGUI/User.pm
@@ -282,7 +282,7 @@ sub cache {
     for my $k (qw(_userId _user _profile)) {
         $userData{$k} = $self->{$k};
     }
-    $self->session->cache->set($self->userId, \%userData, 60*60*24);
+    $self->session->cache->set("user_" . $self->userId, \%userData, 60*60*24);
 }
 
 #-------------------------------------------------------------------
@@ -1058,7 +1058,7 @@ sub new {
     my $userId      = shift || 1;
     my $overrideId  = shift;
     $userId         = _create($session, $overrideId) if ($userId eq "new");
-    my $self        = $session->cache->get($userId) || {};
+    my $self        = $session->cache->get("user_" . $userId) || {};
     bless $self, $class;
     $self->{_session} = $session;
     unless ($self->{_userId} && $self->{_user}{username}) {
@@ -1332,7 +1332,7 @@ Deletes this user object out of the cache.
 
 sub uncache {
 	my $self = shift;
-	$self->session->cache->remove($self->userId);
+	$self->session->cache->remove("user_" . $self->userId);
 }
 
 #----------------------------------------------------------------------------