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.26 -r1.27
--- openacs-4/packages/file-storage/catalog/file-storage.en_US.ISO-8859-1.xml	27 Mar 2004 16:50:17 -0000	1.26
+++ openacs-4/packages/file-storage/catalog/file-storage.en_US.ISO-8859-1.xml	27 Mar 2004 18:22:55 -0000	1.27
@@ -114,7 +114,7 @@
   <msg key="Size">Size</msg>
   <msg key="Size_bytes">Size (bytes)</msg>
   <msg key="this_may_take_a_while">&lt;strong&gt;Note:&lt;/strong&gt; This may take a while, please be patient.</msg>
-  <msg key="Title">Title:</msg>
+  <msg key="Title">Title</msg>
   <msg key="Title_">Title :</msg>
   <msg key="Type">Type</msg>
   <msg key="untitled">untitled</msg>
Index: openacs-4/packages/file-storage/www/file-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/file-oracle.xql,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/file-storage/www/file-oracle.xql	11 Dec 2003 21:40:04 -0000	1.10
+++ openacs-4/packages/file-storage/www/file-oracle.xql	27 Mar 2004 18:22:55 -0000	1.11
@@ -33,6 +33,7 @@
 	select  r.title,
        		r.revision_id as version_id,
        		person.name(o.creation_user) as author,
+                o.creation_user as author_id,
        		r.mime_type as type,
                 to_char(o.last_modified,'YYYY-MM-DD HH24:MI:SS') as last_modified_ansi,
        		r.description,
Index: openacs-4/packages/file-storage/www/file-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/file-postgresql.xql,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/file-storage/www/file-postgresql.xql	27 Mar 2004 17:06:41 -0000	1.12
+++ openacs-4/packages/file-storage/www/file-postgresql.xql	27 Mar 2004 18:22:55 -0000	1.13
@@ -31,6 +31,7 @@
 	select  r.title,
        		r.revision_id as version_id,
        		person__name(o.creation_user) as author,
+                o.creation_user as author_id,
        		r.mime_type as type,
                 to_char(o.last_modified,'YYYY-MM-DD HH24:MI:SS') as last_modified_ansi,
        		r.description,
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.18 -r1.19
--- openacs-4/packages/file-storage/www/file.tcl	12 Mar 2004 13:45:37 -0000	1.18
+++ openacs-4/packages/file-storage/www/file.tcl	27 Mar 2004 18:22:55 -0000	1.19
@@ -62,7 +62,9 @@
 	    label \#file-storage.Title\#
 	    link_url_col version_url
 	}
-	author { label \#file-storage.Author\#}
+	author { label \#file-storage.Author\#
+            display_template {@version.author_link;noquote@}
+        }
 	content_size {
 	    label \#file-storage.Size\#
 	    display_col content_size_pretty
@@ -76,10 +78,11 @@
 	version_delete {label "" link_url_col version_delete_url}
     }
 
-db_multirow -unclobber -extend { last_modified_pretty content_size_pretty version_url version_delete version_delete_url} version version_info {} {
+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 {[string equal $title ""]} {
 	set title "[_ file-storage.untitled]"
     }