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.15 -r1.16
--- openacs-4/packages/fs-portlet/www/fs-portlet.tcl	9 Aug 2002 18:39:32 -0000	1.15
+++ openacs-4/packages/fs-portlet/www/fs-portlet.tcl	4 Dec 2002 09:54:15 -0000	1.16
@@ -72,11 +72,11 @@
     set delete_p [permission::permission_p -object_id $folder_id -privilege "delete"]
 }
 
-set query "select_folder_contents"
-if {!$scoped_p} {
-    set query "select_folders"
+set query "select_folders"
+if {$scoped_p} {
+    set scope_fs_url "/packages/file-storage/www/folder-chunk"
+} else {
+    db_multirow folders $query {}
 }
 
-db_multirow folders $query {}
-
 ad_return_template