Index: openacs-4/packages/calendar/www/cal-item-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/cal-item-view.tcl,v
diff -u -r1.26 -r1.27
--- openacs-4/packages/calendar/www/cal-item-view.tcl	7 Aug 2017 23:48:05 -0000	1.26
+++ openacs-4/packages/calendar/www/cal-item-view.tcl	30 Apr 2018 13:54:38 -0000	1.27
@@ -1,6 +1,6 @@
 ad_page_contract {
     View one event
-    
+
     @author Ben Adida (ben@openforce.net)
     @creation-date April 09, 2002
     @cvs-id $Id$
@@ -28,7 +28,9 @@
 
 # Attachments?
 if {$cal_item(n_attachments) > 0} {
-    set item_attachments [attachments::get_attachments -object_id $cal_item(cal_item_id) -return_url [ad_return_url]]
+    set item_attachments [attachments::get_attachments \
+                              -object_id $cal_item(cal_item_id) \
+                              -return_url [ad_return_url]]
 } else {
     set item_attachments [list]
 }
@@ -38,9 +40,13 @@
 
 # Attachment URLs
 if {[calendar::attachments_enabled_p]} {
-    set attachment_options "<A href=\"[attachments::add_attachment_url -object_id $cal_item(cal_item_id) -pretty_name $cal_item(name) -return_url "../cal-item-view?cal_item_id=$cal_item(cal_item_id)"]\" class=\"button\" >add attachment</a>"
-} else { 
-    set attachment_options {} 
+    set href [attachments::add_attachment_url \
+                  -object_id $cal_item(cal_item_id) \
+                  -pretty_name $cal_item(name) \
+                  -return_url "../cal-item-view?cal_item_id=$cal_item(cal_item_id)"]
+    set attachment_options "<a href='[ns_quotehtml $href]' class='button' >#attachments.Add_Attachment#</a>"
+} else {
+    set attachment_options {}
 }
 
 set date $cal_item(start_date)
@@ -56,7 +62,7 @@
 template::head::add_css -href "/resources/calendar/calendar.css" -media all
 template::head::add_css -alternate -href "/resources/calendar/calendar-hc.css" -title "highContrast"
 
-ad_return_template 
+ad_return_template
 
 
 # Local variables: