restore purge sub

This commit is contained in:
Colin Kuskie 2006-01-01 01:09:58 +00:00
parent 68ff4fdf6c
commit 893b03fc53

View file

@ -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;