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 -N -r1.31.2.23 -r1.31.2.24
--- openacs-4/packages/file-storage/www/folder-chunk.tcl	10 Nov 2006 10:08:17 -0000	1.31.2.23
+++ openacs-4/packages/file-storage/www/folder-chunk.tcl	10 Nov 2006 22:40:12 -0000	1.31.2.24
@@ -102,7 +102,7 @@
 
 #set n_past_filter_values [list [list "Yesterday" 1] [list [_ file-storage.last_week] 7] [list [_ file-storage.last_month] 30]]
 set elements [list type [list label [_ file-storage.Type] \
-                             display_template {<img src="@contents.icon@"  border=0 alt="@contents.content_type_alt_text@" />@contents.pretty_type@} \
+                             display_template {<img src="@contents.icon@"  border=0 alt="@contents.alt_icon@" />@contents.pretty_type@} \
 			    orderby_desc {sort_key_desc,fs_objects.pretty_type desc} \
 			    orderby_asc {fs_objects.sort_key, fs_objects.pretty_type asc}] \
                   name \
@@ -189,11 +189,7 @@
     set orderby " order by fs_objects.sort_key, fs_objects.name asc"
 }
 
-db_multirow -extend {label icon last_modified_pretty content_size_pretty properties_link properties_url download_link download_url new_version_link new_version_url content_type_alt_text} contents select_folder_contents {} {
-
-    # Setting the alt text for content type image
-    set content_type_alt_text [_ file-storage.$type]
-
+db_multirow -extend {label alt_icon icon last_modified_pretty content_size_pretty properties_link properties_url download_link download_url new_version_link new_version_url} contents select_folder_contents {} {
     set last_modified_ansi [lc_time_system_to_conn $last_modified_ansi]
     
     set last_modified_pretty [lc_time_fmt $last_modified_ansi "%x %X"]
@@ -226,6 +222,7 @@
 	    set new_version_link {}
 	    set new_version_url {}
 	    set icon "/resources/file-storage/folder.gif"
+	    set alt_icon #file-storage.folder#
 	    set file_url "${fs_url}index?[export_vars {{folder_id $object_id}}]"
 	    set download_link [_ file-storage.Download]
             set download_url "${fs_url}download-archive/index?[export_vars {object_id}]"
@@ -236,6 +233,10 @@
 	    set new_version_link [_ acs-kernel.common_New]
 	    set new_version_url "${fs_url}file-add?[export_vars {{file_id $object_id}}]"
 	    set icon "/resources/acs-subsite/url-button.gif"
+	    # DRB: This alt text somewhat sucks, but the message key already exists in
+	    # the language catalog files we care most about and we want to avoid a new
+	    # round of translation work for this minor release if possible ...
+	    set alt_icon #file-storage.link#
 	    set file_url ${url}
             set download_url {}
 	    set download_link {}
@@ -261,6 +262,7 @@
 	    set new_version_link [_ acs-kernel.common_New]
 	    set new_version_url "${fs_url}file-add?[export_vars {{file_id $object_id}}]"
 	    set icon "/resources/file-storage/file.gif"
+	    set alt_icon #file-storage.file#
 	    set file_url "${fs_url}view/${file_url}"
 	    set download_link [_ file-storage.Download]
 	    if {$like_filesystem_p} {
@@ -276,6 +278,7 @@
 	    set new_version_link [_ acs-kernel.common_New]
 	    set new_version_url "${fs_url}file-add?[export_vars {{file_id $object_id}}]"
 	    set icon "/resources/file-storage/file.gif"
+	    set alt_icon #file-storage.file#
 	    set file_url "${fs_url}view/${file_url}"
 	    set download_link [_ file-storage.Download]
 	    if {$like_filesystem_p} {