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 -N -r1.4 -r1.5
--- openacs-4/packages/fs-portlet/www/fs-portlet.tcl	29 Mar 2002 19:25:48 -0000	1.4
+++ openacs-4/packages/fs-portlet/www/fs-portlet.tcl	7 Apr 2002 01:13:29 -0000	1.5
@@ -29,27 +29,6 @@
 set user_id [ad_conn user_id]
 set list_of_folder_ids $config(folder_id)
 
-# set up the multirow datasource using the db_multirow proc and 1 id
-set my_folder_id [lindex $list_of_folder_ids 0]
+db_multirow folders select_fs_objects {}
 
-db_multirow -local folders select_files_and_folders {} {
-
-    # we can set array vars for this row
-    set folders(url) [site_nodes::get_url_from_package_id \
-        -package_id [db_string select_package_id {}] \
-    ]       
-
-}
-
-foreach my_folder_id [lrange $list_of_folder_ids 1 end] {  
-
-    # use the append switch to add rows to the datasource
-    db_multirow -local -append folders select_files_and_folders {} {        
-        set folders(url) [site_nodes::get_url_from_package_id \
-            -package_id [db_string select_package_id {}] \
-        ]        
-    }
-
-}
-
 ad_return_template