Index: openacs-4/packages/fs-portlet/www/fs-contents-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/fs-portlet/www/fs-contents-portlet.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/fs-portlet/www/fs-contents-portlet.tcl	31 May 2002 06:34:27 -0000	1.1
+++ openacs-4/packages/fs-portlet/www/fs-contents-portlet.tcl	4 Jun 2002 16:34:12 -0000	1.2
@@ -51,10 +51,13 @@
 set url [portal::mapping::get_url -object_id $folder_id]
 set recurse_p 1
 set contents_url "${url}folder-contents?[export_vars {folder_id recurse_p}]&"
-set write_p [permission::permission_p -object_id $folder_id -privilege "write"]
+
 set admin_p [permission::permission_p -object_id $folder_id -privilege "admin"]
+set write_p $admin_p
+if {!$write_p} {
+    set write_p [permission::permission_p -object_id $folder_id -privilege "write"]
+}
 set delete_p $admin_p
-
 if {!$delete_p} {
     set delete_p [permission::permission_p -object_id $folder_id -privilege "delete"]
 }