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 -N -r1.19 -r1.20
--- openacs-4/packages/calendar/www/cal-item-view.tcl	15 May 2007 20:14:21 -0000	1.19
+++ openacs-4/packages/calendar/www/cal-item-view.tcl	7 Oct 2007 22:36:55 -0000	1.20
@@ -18,10 +18,6 @@
 
 set write_p [permission::write_permission_p -object_id $cal_item_id -creation_user $cal_item(creation_user)]
 
-if {[exists_and_not_null return_url]} {
-    set return_url [ad_urlencode $return_url]
-}
-
 # 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]]
@@ -48,5 +44,17 @@
 set cal_item_new_url [export_vars -base "cal-item-new" {cal_item_id return_url}]
 set cal_item_delete_url [export_vars -base "cal-item-delete" {cal_item_id return_url}]
 
+# To be replaced by a call to template::head API
+if {![template::multirow exists link]} {
+    template::multirow create link rel type href title lang media
+}
+template::multirow append link \
+    stylesheet \
+    "text/css" \
+    "/resources/calendar/calendar.css" \
+    "" \
+    en \
+    "all"
+
 ad_return_template