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.25 -r1.26
--- openacs-4/packages/file-storage/catalog/file-storage.en_US.ISO-8859-1.xml	27 Mar 2004 15:20:16 -0000	1.25
+++ openacs-4/packages/file-storage/catalog/file-storage.en_US.ISO-8859-1.xml	27 Mar 2004 16:50:17 -0000	1.26
@@ -27,6 +27,7 @@
   <msg key="Edit_Folder">Edit Folder</msg>
   <msg key="Edit_URL">Edit URL</msg>
   <msg key="file">file</msg>
+  <msg key="link">link</msg>
   <msg key="file_delete_page_title">Delete %title%</msg>
   <msg key="file_edit_page_title">Rename %title%</msg>
   <msg key="file_edit_page_title_1">Edit %pretty_name%</msg>
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 -r1.22
--- openacs-4/packages/file-storage/www/folder-chunk.tcl	12 Mar 2004 13:45:37 -0000	1.21
+++ openacs-4/packages/file-storage/www/folder-chunk.tcl	27 Mar 2004 16:50:17 -0000	1.22
@@ -55,7 +55,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 icon \
 		  [list label "" \
-		       display_template {<a href="@contents.file_url@"><img src="@contents.icon@"  border=0 alt="#file-storage.folder#" /></a>}] \
+		       display_template {<a href="@contents.file_url@"><img src="@contents.icon@" border=0 alt="@contents.label@" /></a>}] \
 		  name \
 		  [list label [_ file-storage.Name] \
 		       link_url_col file_url \
@@ -93,7 +93,7 @@
     set orderby " order by fs_objects.sort_key, fs_objects.name asc"
 }
 
-db_multirow -extend { icon last_modified_pretty content_size_pretty properties_link properties_url} contents select_folder_contents {} {
+db_multirow -extend { label icon last_modified_pretty content_size_pretty properties_link properties_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"]
@@ -110,13 +110,22 @@
         incr content_size_total $content_size
     }
 
+
     set name [lang::util::localize $name]
-    if {![string equal $type folder]} {
+    if {[string equal $type url]} {
+        set label [_ file-storage.link]
 	set properties_link [_ file-storage.properties]
 	set properties_url "file?[export_vars {{file_id $object_id}}]"
+	set icon "/resources/file-storage/link.gif"
+        set file_url $url
+    } elseif {![string equal $type folder]} {
+        set label [_ file-storage.file]
+	set properties_link [_ file-storage.properties]
+	set properties_url "file?[export_vars {{file_id $object_id}}]"
 	set icon "/resources/file-storage/file.gif"
         set file_url "view/${file_url}"
     } else {
+        set label [_ file-storage.folder]
 	set properties_link ""
 	set properties_url ""
 	set icon "/resources/file-storage/folder.gif"
Index: openacs-4/packages/file-storage/www/resources/link.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/resources/link.gif,v
diff -u
Binary files differ