Index: openacs-4/packages/file-storage/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/index.tcl,v
diff -u -N -r1.9 -r1.10
--- openacs-4/packages/file-storage/www/index.tcl	22 Feb 2002 21:37:12 -0000	1.9
+++ openacs-4/packages/file-storage/www/index.tcl	13 Mar 2002 21:17:12 -0000	1.10
@@ -43,7 +43,10 @@
 # thus, not be able to actually delete it.  We check this later, but
 # sometime present a link that they won't be able to use.
 
-set delete_p [ad_permission_p $folder_id delete]
+set delete_p $admin_p
+if {!$delete_p} {
+    set delete_p [ad_permission_p $folder_id delete]
+}
 
 set package_id [ad_conn package_id]