Index: openacs-4/packages/file-storage/tcl/file-storage-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-callback-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/file-storage/tcl/file-storage-callback-procs.tcl	22 Aug 2006 12:06:00 -0000	1.4
+++ openacs-4/packages/file-storage/tcl/file-storage-callback-procs.tcl	14 Nov 2006 16:07:53 -0000	1.5
@@ -25,16 +25,19 @@
     {-package_id:required}
     {-file_id:required}
 } {
-}
+    Callback executed right before the file is deleted
+    This should make sure that any foreign key constraints to the file are removed
+} -
 
-# this can be used to check for confirmation before upload to folder
+
 ad_proc -public -callback fs::before_file_new {
     {-package_id:required}
     {-folder_id:required}
     {-cancel_url:required}
     {-return_url:required}
 } {
-}
+    this can be used to check for confirmation before upload to folder
+} -
 
 ad_proc -public -callback fs::file_new {
     {-package_id:required}