oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

add back string literal identifier

Browse source
This commit is contained in:
Doug Bell 2010-04-19 18:55:45 -05:00
parent b767824711
commit 829bb7739e
2 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lib/WebGUI/Group.pm
View file

@ -126,7 +126,7 @@ not be added to any group. Groups may not be added to themselves.
sub addGroups { sub addGroups {
my $self = shift; my $self = shift;
my $groups = shift; my $groups = shift;
$self->session->cache->remove($self->getId); $self->session->cache->remove("group_" . $self->getId);
GROUP: foreach my $gid (@{$groups}) { GROUP: foreach my $gid (@{$groups}) {
next if ($gid eq '1'); next if ($gid eq '1');
next if ($gid eq $self->getId); next if ($gid eq $self->getId);
@ -233,7 +233,7 @@ sub clearCaches {
my $groups = $self->getAllGroupsFor(); my $groups = $self->getAllGroupsFor();
my $cache = $self->session->cache; my $cache = $self->session->cache;
foreach my $group ( $self->getId, @{ $groups } ) { foreach my $group ( $self->getId, @{ $groups } ) {
$cache->remove($group); $cache->remove("group_".$group);
} }
my $stow = $self->session->stow; my $stow = $self->session->stow;
$stow->delete("groupObj"); $stow->delete("groupObj");
@ -562,7 +562,7 @@ sub getAllUsers {
my $loopCount = shift; my $loopCount = shift;
my $expireTime = 0; my $expireTime = 0;
my $cache = $self->session->cache; my $cache = $self->session->cache;
my $value = $cache->get($self->getId); my $value = $cache->get("group_".$self->getId);
return $value if defined $value; return $value if defined $value;
my @users = (); my @users = ();
push @users, push @users,
@ -587,7 +587,7 @@ sub getAllUsers {
} }
my %users = map { $_ => 1 } @users; my %users = map { $_ => 1 } @users;
@users = keys %users; @users = keys %users;
$cache->set($self->getId, \@users, $self->groupCacheTimeout); $cache->set("group_".$self->getId, \@users, $self->groupCacheTimeout);
return \@users; return \@users;
} }

6
lib/WebGUI/User.pm
View file

@ -282,7 +282,7 @@ sub cache {
for my $k (qw(_userId _user _profile)) { for my $k (qw(_userId _user _profile)) {
$userData{$k} = $self->{$k}; $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 $userId = shift || 1;
my $overrideId = shift; my $overrideId = shift;
$userId = _create($session, $overrideId) if ($userId eq "new"); $userId = _create($session, $overrideId) if ($userId eq "new");
my $self = $session->cache->get($userId) || {}; my $self = $session->cache->get("user_" . $userId) || {};
bless $self, $class; bless $self, $class;
$self->{_session} = $session; $self->{_session} = $session;
unless ($self->{_userId} && $self->{_user}{username}) { unless ($self->{_userId} && $self->{_user}{username}) {
@ -1332,7 +1332,7 @@ Deletes this user object out of the cache.
sub uncache { sub uncache {
my $self = shift; my $self = shift;
$self->session->cache->remove($self->userId); $self->session->cache->remove("user_" . $self->userId);
} }
#---------------------------------------------------------------------------- #----------------------------------------------------------------------------