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.17.6.1 -r1.17.6.2
--- openacs-4/packages/fs-portlet/www/fs-portlet.tcl	22 Jul 2004 10:11:16 -0000	1.17.6.1
+++ openacs-4/packages/fs-portlet/www/fs-portlet.tcl	29 Aug 2004 23:57:48 -0000	1.17.6.2
@@ -62,15 +62,17 @@
     set contents_url "${contents_url}?"
 }
 
-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"]
+if { !$scoped_p } {
+    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"]
+    }
 }
-set delete_p $admin_p
-if {!$delete_p} {
-    set delete_p [permission::permission_p -object_id $folder_id -privilege "delete"]
-}
 
 set query "select_folders"
 if {$scoped_p} {