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",
[$assetId, $session->scratch->get("versionTag")]);
$assetRevision->{$assetId}{$session->scratch->get("versionTag")||'_'} = $revisionDate;
$session->stow("assetRevision",$assetRevision);
$session->stow->set("assetRevision",$assetRevision);
}
return undef unless ($revisionDate);
if ($className) {

6
lib/WebGUI/User.pm
View file

@ -206,13 +206,13 @@ sub getGroups {
return $gotGroupsForUser->{$self->userId};
} else {
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) {
$isInGroup->{$self->userId}{$gid} = 1;
}
$self->session->stow("isInGroup",$isInGroup);
$self->session->stow->set("isInGroup",$isInGroup);
$gotGroupsForUser->{$self->userId} = \@groups;
$self->session->stow("gotGroupsForUser",$gotGroupsForUser);
$self->session->stow->set("gotGroupsForUser",$gotGroupsForUser);
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 {
my $self = shift;
$self->session->scratch->set("versionTag",$self->getId);
$self->session->stow("versionTag", $self);
$self->session->stow->set("versionTag", $self);
}
#-------------------------------------------------------------------