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

all wobjects integrated into new discussion system

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

3
lib/WebGUI/Forum.pm
View file

@ -92,14 +92,13 @@ sub new {
}
sub purge {
my ($self);
my ($self) = @_;
my $a = WebGUI::SQL->read("select * from forumThread where forumId=".$self->get("forumId"));
while (my ($threadId) = $a->array) {
my $b = WebGUI::SQL->read("select * from forumPost where forumThreadId=".$threadId);
while (my ($postId) = $b->array) {
WebGUI::SQL->write("delete from forumPostAttachment where forumPostId=".$postId);
WebGUI::SQL->write("delete from forumPostRating where forumPostId=".$postId);
WebGUI::SQL->write("delete from forumBookmark where forumPostId=".$postId);
}
$b->finish;
WebGUI::SQL->write("delete from forumThreadSubscription where forumThreadId=".$threadId);