From 372f30d1bf5535a2f276573295033e428c576d08 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Mon, 13 Oct 2003 00:06:45 +0000
Subject: [PATCH] adding forum purge

---
 lib/WebGUI/Wobject.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/WebGUI/Wobject.pm b/lib/WebGUI/Wobject.pm
index 0eeea4ee2..0ce114ce2 100644
--- a/lib/WebGUI/Wobject.pm
+++ b/lib/WebGUI/Wobject.pm
@@ -745,7 +745,7 @@ NOTE: This method is meant to be extended by all sub-classes.
 =cut
 
 sub purge {
-	my WebGUI::Forum->new($_[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"));