Index: openacs-4/packages/file-storage/www/file.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/file.tcl,v
diff -u -r1.19 -r1.20
--- openacs-4/packages/file-storage/www/file.tcl	27 Mar 2004 18:22:55 -0000	1.19
+++ openacs-4/packages/file-storage/www/file.tcl	17 May 2004 15:15:14 -0000	1.20
@@ -69,7 +69,8 @@
 	    label \#file-storage.Size\#
 	    display_col content_size_pretty
 	}
-	type { label \#file-storage.Type\#}
+	type { label \#file-storage.Type\#
+	       display_col pretty_type }
 	last_modified_ansi {
 	    label \#file-storage.Last_Modified\#
 	    display_col last_modified_pretty
@@ -81,8 +82,11 @@
 db_multirow -unclobber -extend { author_link last_modified_pretty content_size_pretty version_url version_delete version_delete_url} version version_info {} {
     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] [_ file-storage.bytes]"
-    set author_link [acs_community_member_link -user_id $author_id -label $author]
+    if {$content_size < 1024} {
+	set content_size_pretty "[lc_numeric $content_size] [_ file-storage.bytes]"
+    } else {
+	set content_size_pretty "[lc_numeric [expr $content_size / 1024 ]] [_ file-storage.kb]"
+    }
     if {[string equal $title ""]} {
 	set title "[_ file-storage.untitled]"
     }