From 0ff54153aaedd777d43f7786f4560e7887a5a4dd Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Wed, 11 Jul 2007 17:58:09 +0000
Subject: [PATCH] Fix a bug in removing keywords related to assets being
 purged.

---
 lib/WebGUI/AssetTrash.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/WebGUI/AssetTrash.pm b/lib/WebGUI/AssetTrash.pm
index 3f3f74ee7..88e015503 100644
--- a/lib/WebGUI/AssetTrash.pm
+++ b/lib/WebGUI/AssetTrash.pm
@@ -121,7 +121,7 @@ sub purge {
 		(defined $kid) ? $kid->purge :
 			$self->session->errorHandler->warn("getLineage returned an undefined object in the AssetTrash->purge method.  Unable to purge asset.");
 	}
-    WebGUI::Keyword->new($self->session)->deleteKeywordsForAsset($self->getId);
+    WebGUI::Keyword->new($self->session)->deleteKeywordsForAsset($self);
     WebGUI::Search::Index->new($self)->delete;
 	$self->session->db->beginTransaction;
 	$self->session->db->write("delete from metaData_values where assetId = ".$self->session->db->quote($self->getId));