Index: openacs-4/packages/file-storage/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/index.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/file-storage/www/index.tcl	21 Feb 2002 20:06:27 -0000	1.7
+++ openacs-4/packages/file-storage/www/index.tcl	22 Feb 2002 19:06:28 -0000	1.8
@@ -47,6 +47,8 @@
 
 set package_id [ad_conn package_id]
 
-db_multirow file file_select {}
+template::util::list_of_ns_sets_to_multirow \
+    -rows [fs::get_folder_contents -folder_id $folder_id -user_id $user_id] \
+    -var_name "file"
 
 ad_return_template