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.9 -r1.10
--- openacs-4/packages/fs-portlet/www/fs-portlet.tcl	30 Apr 2002 02:43:13 -0000	1.9
+++ openacs-4/packages/fs-portlet/www/fs-portlet.tcl	10 May 2002 00:49:13 -0000	1.10
@@ -39,7 +39,7 @@
 set user_id [ad_conn user_id]
 set list_of_folder_ids $config(folder_id)
 set n_folders [llength $list_of_folder_ids]
-set style $config(style)
+set scoped_p [ad_decode $config(scoped_p) t 1 0]
 
 set user_root_folder [dotlrn_fs::get_user_root_folder -user_id $user_id]
 set user_root_folder_present_p 0
@@ -70,7 +70,7 @@
 }
 
 set query "select_folder_contents"
-if {![string equal $style "tree"]} {
+if {!$scoped_p} {
     set query "select_folders"
 }