From 64c7a9da73d62aa1669cb19841c71b936167400f Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Sat, 10 May 2003 22:25:07 +0000
Subject: [PATCH] fixed bug 730052

---
 lib/WebGUI/Wobject/FileManager.pm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/lib/WebGUI/Wobject/FileManager.pm b/lib/WebGUI/Wobject/FileManager.pm
index cfd6cb2fc..76f3d29ae 100644
--- a/lib/WebGUI/Wobject/FileManager.pm
+++ b/lib/WebGUI/Wobject/FileManager.pm
@@ -82,6 +82,12 @@ sub new {
         bless $self, $class;
 }
 
+#-------------------------------------------------------------------
+sub purge {
+	WebGUI::SQL->write("delete from FileManager_file where wobjectId=".$_[0]->get("wobjectId"));
+        $_[0]->SUPER::purge();
+}
+
 #-------------------------------------------------------------------
 sub uiLevel {
         return 4;