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.10 -r1.11 --- openacs-4/packages/file-storage/www/folder-chunk.tcl 18 Nov 2002 18:01:05 -0000 1.10 +++ openacs-4/packages/file-storage/www/folder-chunk.tcl 18 Feb 2003 20:56:09 -0000 1.11 @@ -29,13 +29,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 rows [fs::get_folder_contents \ - -folder_id $folder_id \ - -user_id $viewing_user_id \ - -n_past_days $n_past_days \ -] -util::list_of_ns_sets_to_multirow -rows $rows -var_name "contents" - ad_return_template