From 893b03fc5320e38157f6ed424f133c0871917951 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Sun, 1 Jan 2006 01:09:58 +0000
Subject: [PATCH] restore purge sub

---
 lib/WebGUI/Asset/Wobject/Matrix.pm | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/lib/WebGUI/Asset/Wobject/Matrix.pm b/lib/WebGUI/Asset/Wobject/Matrix.pm
index f21d2002d..0e1cfad82 100644
--- a/lib/WebGUI/Asset/Wobject/Matrix.pm
+++ b/lib/WebGUI/Asset/Wobject/Matrix.pm
@@ -166,6 +166,17 @@ sub incrementCounter {
 	}
 }
 
+#-------------------------------------------------------------------
+sub purge {
+       my $self = shift;
+       WebGUI::SQL->write("delete from Matrix_listing where assetId=".quote($self->getId));
+       WebGUI::SQL->write("delete from Matrix_listingData where assetId=".quote($self->getId));
+       WebGUI::SQL->write("delete from Matrix_field where assetId=".quote($self->getId));
+       WebGUI::SQL->write("delete from Matrix_rating where assetId=".quote($self->getId));
+       WebGUI::SQL->write("delete from Matrix_ratingSummary where assetId=".quote($self->getId));
+       $self->SUPER::purge;
+}
+
 #-------------------------------------------------------------------
 sub setRatings { 
 	my $self = shift;