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;