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.61.2.13 -r1.61.2.14
--- openacs-4/packages/file-storage/www/folder-chunk.tcl 13 Oct 2022 10:15:31 -0000 1.61.2.13
+++ openacs-4/packages/file-storage/www/folder-chunk.tcl 20 Oct 2022 19:08:00 -0000 1.61.2.14
@@ -139,7 +139,7 @@
set elements {
type {
label #file-storage.Type#
- display_template {@contents.pretty_type@}
+ display_template { @contents.pretty_type@}
}
name {
label #file-storage.Name#
@@ -368,7 +368,7 @@
set properties_url ""
set new_version_link {}
set new_version_url {}
- set icon "/resources/file-storage/folder.gif"
+ set icon folder
set alt_icon #file-storage.folder#
set file_url [export_vars -base "${fs_url}index" {{folder_id $object_id}}]
set download_link [_ file-storage.Download]
@@ -379,7 +379,7 @@
set properties_url [export_vars -base "${fs_url}simple" {object_id}]
set new_version_link [_ acs-kernel.common_New]
set new_version_url [export_vars -base "${fs_url}file-add" {{file_id $object_id}}]
- set icon "/resources/acs-subsite/url-button.gif"
+ set icon link
# 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 ...
@@ -418,7 +418,7 @@
set properties_url [export_vars -base ${fs_url}file {{file_id $object_id}}]
set new_version_link [_ acs-kernel.common_New]
set new_version_url [export_vars -base ${fs_url}file-add {{file_id $object_id}}]
- set icon "/resources/file-storage/file.gif"
+ set icon file
set alt_icon #file-storage.file#
set download_link [_ file-storage.Download]
if {$like_filesystem_p} {
@@ -437,8 +437,8 @@
set new_version_link [_ acs-kernel.common_New]
set new_version_url [export_vars -base ${fs_url}file-add {{file_id $object_id}}]
}
- set icon "/resources/file-storage/file.gif"
- set alt_icon "#file-storage.file#"
+ set icon file
+ set alt_icon #file-storage.file#
set download_link [_ file-storage.Download]
if {$like_filesystem_p} {
set download_url /file/$object_id/[ad_urlencode_path $title][ad_file extension $name]