From 528d0deaa51a94cb2b97aed3f1b9b1c481a313f2 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Fri, 17 Mar 2006 19:06:12 +0000
Subject: [PATCH] bad stow methods fixed

---
 lib/WebGUI/Asset.pm      | 2 +-
 lib/WebGUI/User.pm       | 6 +++---
 lib/WebGUI/VersionTag.pm | 2 +-
 3 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/lib/WebGUI/Asset.pm b/lib/WebGUI/Asset.pm
index df3cb9d34..37d1161cd 100644
--- a/lib/WebGUI/Asset.pm
+++ b/lib/WebGUI/Asset.pm
@@ -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) {
diff --git a/lib/WebGUI/User.pm b/lib/WebGUI/User.pm
index 16013b661..21f4e0758 100644
--- a/lib/WebGUI/User.pm
+++ b/lib/WebGUI/User.pm
@@ -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;
         }
 }
diff --git a/lib/WebGUI/VersionTag.pm b/lib/WebGUI/VersionTag.pm
index 16ee6272d..5fcc33acb 100644
--- a/lib/WebGUI/VersionTag.pm
+++ b/lib/WebGUI/VersionTag.pm
@@ -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);
 }
 
 #-------------------------------------------------------------------