Index: openacs-4/packages/file-storage/catalog/file-storage.en_US.ISO-8859-1.xml =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/catalog/file-storage.en_US.ISO-8859-1.xml,v diff -u -r1.23.2.3 -r1.23.2.4 --- openacs-4/packages/file-storage/catalog/file-storage.en_US.ISO-8859-1.xml 11 May 2004 02:43:04 -0000 1.23.2.3 +++ openacs-4/packages/file-storage/catalog/file-storage.en_US.ISO-8859-1.xml 12 May 2004 02:35:25 -0000 1.23.2.4 @@ -42,6 +42,7 @@ Up to %up_name% item items + kb Last Modified Last Month Last Week 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.21.2.7 -r1.21.2.8 --- openacs-4/packages/file-storage/www/folder-chunk.tcl 10 May 2004 19:30:43 -0000 1.21.2.7 +++ openacs-4/packages/file-storage/www/folder-chunk.tcl 12 May 2004 02:35:25 -0000 1.21.2.8 @@ -130,11 +130,12 @@ set last_modified_ansi [lc_time_system_to_conn $last_modified_ansi] set last_modified_pretty [lc_time_fmt $last_modified_ansi "%x %X"] - set content_size_pretty [lc_numeric $content_size] if {[string equal $type "folder"]} { + set content_size_pretty [lc_numeric $content_size] append content_size_pretty " [_ file-storage.items]" } else { - append content_size_pretty " [_ file-storage.bytes]" + set content_size_pretty [lc_numeric [expr $content_size / 1024 ]] + append content_size_pretty " [_ file-storage.kb]" } set file_upload_name [fs::remove_special_file_system_characters -string $file_upload_name]