Index: openacs-4/packages/fs-portlet/www/fs-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/fs-portlet/www/fs-portlet.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/fs-portlet/www/fs-portlet.tcl	31 May 2002 06:34:27 -0000	1.11
+++ openacs-4/packages/fs-portlet/www/fs-portlet.tcl	4 Jun 2002 16:34:12 -0000	1.12
@@ -62,9 +62,11 @@
     set contents_url "${contents_url}?"
 }
 
-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"]