added purge

This commit is contained in:
JT Smith 2003-10-12 23:56:56 +00:00
parent 7f53e348f5
commit 998eb9d981
2 changed files with 24 additions and 2 deletions

View file

@ -745,10 +745,11 @@ NOTE: This method is meant to be extended by all sub-classes.
=cut
sub purge {
my ($node);
my WebGUI::Forum->new($_[0]->get("forumId"));
$forum->purge;
WebGUI::SQL->write("delete from ".$_[0]->get("namespace")." where wobjectId=".$_[0]->get("wobjectId"));
WebGUI::SQL->write("delete from wobject where wobjectId=".$_[0]->get("wobjectId"));
$node = WebGUI::Node->new($_[0]->get("wobjectId"));
my $node = WebGUI::Node->new($_[0]->get("wobjectId"));
$node->delete;
}