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

bug fixes

Browse source
This commit is contained in:
JT Smith 2009-09-25 22:50:59 -05:00
parent ccff9c7014
commit ebb6134c2d
27 changed files with 84 additions and 214 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/WebGUI/User.pm
View file

@ -286,7 +286,7 @@ sub cache {
for my $k (qw(_userId _user _profile)) {
$userData{$k} = $self->{$k};
}
$self->session->cache->set(["user",$self->userId], \%userData, 60*60*24);
eval{$self->session->cache->set(["user",$self->userId], \%userData, 60*60*24)};
}
#-------------------------------------------------------------------
@ -1060,7 +1060,7 @@ sub new {
my $userId = shift || 1;
my $overrideId = shift;
$userId = _create($session, $overrideId) if ($userId eq "new");
my $self = $session->cache->get(["user",$userId]) || {};
my $self = eval{$session->cache->get(["user",$userId])} || {};
bless $self, $class;
$self->{_session} = $session;
unless ($self->{_userId} && $self->{_user}{username}) {
@ -1334,7 +1334,7 @@ Deletes this user object out of the cache.
sub uncache {
my $self = shift;
$self->session->cache->delete(["user",$self->userId]);
eval{$self->session->cache->delete(["user",$self->userId])};
}
#----------------------------------------------------------------------------