From e9e1a30a372a65b9b0ed810bf081c24f5c96a413 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Fri, 13 Jan 2006 04:08:18 +0000
Subject: [PATCH] cleanup from conversion

---
 lib/WebGUI/Asset.pm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/lib/WebGUI/Asset.pm b/lib/WebGUI/Asset.pm
index 2c1fcfbad..88253d068 100644
--- a/lib/WebGUI/Asset.pm
+++ b/lib/WebGUI/Asset.pm
@@ -1291,9 +1291,10 @@ Purges all cache entries associated with this asset.
 
 sub purgeCache {
 	my $self = shift;
-	delete $session{assetLineage};
-	delete $session{assetClass};
-	delete $session{assetRevision};
+	my $stow = $self->stow;
+	$stow->delete('assetLineage');
+	$stow->delete('assetClass');
+	$stow->delete('assetRevision');
 	WebGUI::Cache->new($self->session,["asset",$self->getId,$self->get("revisionDate")])->deleteChunk(["asset",$self->getId]);
 }
 
@@ -1307,6 +1308,7 @@ Returns a reference to the current session.
 =cut
 
 sub session {
+	my ($self) = @_;
 	return $self->{_session};
 }