Index: openacs-4/packages/file-storage/www/folder-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/folder-delete.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/file-storage/www/folder-delete.tcl	27 Apr 2005 08:25:29 -0000	1.9
+++ openacs-4/packages/file-storage/www/folder-delete.tcl	26 May 2005 08:28:46 -0000	1.10
@@ -61,6 +61,7 @@
 	if {[string equal $blocked_p "f"] } {
 	    # they have confirmed that they want to delete the folder
 	    
+	    callback fs::folder_delete -package_id [ad_conn package_id] -folder_id $folder_id
 	    db_1row parent_id "select parent_id from cr_items where item_id = :folder_id"
     	    
 	    db_exec_plsql folder_delete ""