Index: openacs-4/packages/file-storage/www/simple-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/simple-delete.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/file-storage/www/simple-delete.tcl	17 May 2003 10:39:54 -0000	1.4
+++ openacs-4/packages/file-storage/www/simple-delete.tcl	19 Jun 2004 14:47:48 -0000	1.5
@@ -13,7 +13,15 @@
 ad_require_permission $object_id delete
 
 # Delete
-content_extlink::delete -extlink_id $object_id
 
+db_transaction {
+
+    fs::do_notifications -folder_id $folder_id -filename [content_extlink::extlink_name -item_id $object_id] -url_id $object_id -action "delete_url"
+
+    content_extlink::delete -extlink_id $object_id
+
+}
+
+
 ad_returnredirect "./?folder_id=$folder_id"