Index: openacs-4/packages/file-storage/www/folder-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/folder-chunk.tcl,v
diff -u -r1.31.2.7 -r1.31.2.8
--- openacs-4/packages/file-storage/www/folder-chunk.tcl	31 Aug 2005 15:01:32 -0000	1.31.2.7
+++ openacs-4/packages/file-storage/www/folder-chunk.tcl	12 Sep 2005 12:10:47 -0000	1.31.2.8
@@ -69,7 +69,9 @@
 # for now, invite users to upload, and then they will be asked to
 # login if they are not.
 
-lappend actions "\#file-storage.Add_File\#" ${fs_url}file-add?[export_vars folder_id] "Upload a file in this folder" "\#file-storage.Create_a_URL\#" ${fs_url}simple-add?[export_vars folder_id] "Add a link to a web page" "\#file-storage.New_Folder\#" ${fs_url}folder-create?[export_vars {{parent_id $folder_id}}] "\#file-storage.Create_a_new_folder\#"
+if {$write_p} {
+    lappend actions "\#file-storage.Add_File\#" ${fs_url}file-add?[export_vars folder_id] "Upload a file in this folder" "\#file-storage.Create_a_URL\#" ${fs_url}simple-add?[export_vars folder_id] "Add a link to a web page" "\#file-storage.New_Folder\#" ${fs_url}folder-create?[export_vars {{parent_id $folder_id}}] "\#file-storage.Create_a_new_folder\#"
+}
 
 set expose_rss_p [parameter::get -parameter ExposeRssP -default 0]
 set like_filesystem_p [parameter::get -parameter BehaveLikeFilesystemP -default 1]