Index: openacs-4/packages/calendar/www/cal-item-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/cal-item-new.tcl,v
diff -u -r1.34 -r1.35
--- openacs-4/packages/calendar/www/cal-item-new.tcl	7 Oct 2007 22:36:55 -0000	1.34
+++ openacs-4/packages/calendar/www/cal-item-new.tcl	17 Dec 2007 14:10:37 -0000	1.35
@@ -31,17 +31,9 @@
 set calendar_list [calendar::calendar_list]
 set calendar_options [calendar::calendar_list -privilege create]
 
-# 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"
+# Header stuff
+template::add_body_handler -event "onload" -script "TimePChanged()"
+template::head::add_css -href "/resources/calendar/calendar.css" -media all
 
 # TODO: Move into ad_form
 if { ![ad_form_new_p -key cal_item_id] } {