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

bad stow methods fixed

Browse source
This commit is contained in:
Colin Kuskie 2006-03-17 19:06:12 +00:00
parent f22be087f1
commit 528d0deaa5
3 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/Asset.pm
View file

@ -1269,7 +1269,7 @@ sub new {
(status='approved' or status='archived' or tagId=?) order by assetData.revisionDate", (status='approved' or status='archived' or tagId=?) order by assetData.revisionDate",
[$assetId, $session->scratch->get("versionTag")]); [$assetId, $session->scratch->get("versionTag")]);
$assetRevision->{$assetId}{$session->scratch->get("versionTag")||'_'} = $revisionDate; $assetRevision->{$assetId}{$session->scratch->get("versionTag")||'_'} = $revisionDate;
$session->stow("assetRevision",$assetRevision); $session->stow->set("assetRevision",$assetRevision);
} }
return undef unless ($revisionDate); return undef unless ($revisionDate);
if ($className) { if ($className) {

6
lib/WebGUI/User.pm
View file

@ -206,13 +206,13 @@ sub getGroups {
return $gotGroupsForUser->{$self->userId}; return $gotGroupsForUser->{$self->userId};
} else { } else {
my @groups = $self->session->db->buildArray("select groupId from groupings where userId=".$self->session->db->quote($self->userId)." $clause"); my @groups = $self->session->db->buildArray("select groupId from groupings where userId=".$self->session->db->quote($self->userId)." $clause");
my $isInGroup = $self->session->stow("isInGroup"); my $isInGroup = $self->session->stow->get("isInGroup");
foreach my $gid (@groups) { foreach my $gid (@groups) {
$isInGroup->{$self->userId}{$gid} = 1; $isInGroup->{$self->userId}{$gid} = 1;
} }
$self->session->stow("isInGroup",$isInGroup); $self->session->stow->set("isInGroup",$isInGroup);
$gotGroupsForUser->{$self->userId} = \@groups; $gotGroupsForUser->{$self->userId} = \@groups;
$self->session->stow("gotGroupsForUser",$gotGroupsForUser); $self->session->stow->set("gotGroupsForUser",$gotGroupsForUser);
return \@groups; return \@groups;
} }
} }

2
lib/WebGUI/VersionTag.pm
View file

@ -345,7 +345,7 @@ Sets this tag as the working tag for the current user.
sub setWorking { sub setWorking {
my $self = shift; my $self = shift;
$self->session->scratch->set("versionTag",$self->getId); $self->session->scratch->set("versionTag",$self->getId);
$self->session->stow("versionTag", $self); $self->session->stow->set("versionTag", $self);
} }
#------------------------------------------------------------------- #-------------------------------------------------------------------