oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

some cleanup

Browse source
This commit is contained in:
JT Smith 2003-10-18 16:55:39 +00:00
parent 2302c372fb
commit c575ba511d
6 changed files with 90 additions and 746 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lib/WebGUI/Wobject.pm
View file

@ -746,8 +746,11 @@ NOTE: This method is meant to be extended by all sub-classes.
sub purge {
if ($_[0]->get("forumId")) {
my $forum = WebGUI::Forum->new($_[0]->get("forumId"));
$forum->purge;
my ($inUseElsewhere) = WebGUI::SQL->quickArray("select count(*) from wobject where forumId=".$_[0]->get("forumId"));
unless ($inUseElsewhere > 1) {
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"));