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.9 -r1.10
--- openacs-4/packages/file-storage/www/simple-delete.tcl	27 Oct 2014 16:41:34 -0000	1.9
+++ openacs-4/packages/file-storage/www/simple-delete.tcl	7 Aug 2017 23:48:11 -0000	1.10
@@ -17,11 +17,19 @@
 db_transaction {
 
     fs::do_notifications -folder_id $folder_id -filename [content::extlink::name -item_id $object_id] -item_id $object_id -action "delete_url"
+    
+    fs::delete_file \
+        -item_id $object_id \
+        -parent_id $folder_id
 
-    content::extlink::delete -extlink_id $object_id
-
 }
 
 
 ad_returnredirect "./?folder_id=$folder_id"
 
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: