Index: openacs-4/packages/file-storage/www/folder-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/folder-chunk.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/file-storage/www/folder-chunk.tcl	17 May 2003 10:39:54 -0000	1.12
+++ openacs-4/packages/file-storage/www/folder-chunk.tcl	7 Jul 2003 12:37:39 -0000	1.13
@@ -26,16 +26,12 @@
     set fs_url ""
 }
 
-db_multirow contents select_folder_contents {} {
-    set file_upload_name [fs::remove_special_file_system_characters -string $file_upload_name]
-    set last_modified [lc_time_fmt $last_modified "%x %X"]
-    set content_size [lc_numeric $content_size]
-}
-
 set folder_name [fs::get_object_name -object_id  $folder_id]
 
 set content_size_total 0
 
+set root_folder_id [fs::get_root_folder]
+
 db_multirow contents select_folder_contents {} {
     set file_upload_name [fs::remove_special_file_system_characters -string $file_upload_name]
     if { ![empty_string_p $content_size] } {