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]