all wobjects integrated into new discussion system

This commit is contained in:
JT Smith 2003-10-18 15:48:09 +00:00
parent 65a9ecbd34
commit 2302c372fb
6 changed files with 43 additions and 18 deletions

View file

@ -745,8 +745,10 @@ NOTE: This method is meant to be extended by all sub-classes.
=cut
sub purge {
my $forum = WebGUI::Forum->new($_[0]->get("forumId"));
$forum->purge;
if ($_[0]->get("forumId")) {
my $forum = 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"));
my $node = WebGUI::Node->new($_[0]->get("wobjectId"));