Index: openacs-4/packages/calendar/www/view.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/view.tcl,v diff -u -r1.24 -r1.25 --- openacs-4/packages/calendar/www/view.tcl 15 May 2007 20:14:21 -0000 1.24 +++ openacs-4/packages/calendar/www/view.tcl 7 Oct 2007 22:36:55 -0000 1.25 @@ -53,6 +53,7 @@ set ansi_day [string trimleft [lindex $ansi_list 2] "0"] set end_date [dt_julian_to_ansi [expr [dt_ansi_to_julian $ansi_year $ansi_month $ansi_day ] + $period_days]] } +set calendar_personal_p [calendar::personal_p -calendar_id [lindex [lindex [calendar::calendar_list -package_id $package_id ] 0] 1] ] set notification_chunk [notification::display::request_widget \ -type calendar_notif \ @@ -61,5 +62,16 @@ -url [ad_conn 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