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.21 -r1.22
--- openacs-4/packages/calendar/www/cal-item-view.tcl	17 Dec 2007 14:10:37 -0000	1.21
+++ openacs-4/packages/calendar/www/cal-item-view.tcl	30 Aug 2008 19:51:23 -0000	1.22
@@ -26,7 +26,7 @@
 }
 
 # no time?
-set cal_item(no_time_p) [dt_no_time_p -start_time $cal_item(start_time) -end_time $cal_item(end_time)]
+set cal_item(no_time_p) [expr {!$cal_item(time_p)}]
 
 # Attachment URLs
 if {[calendar::attachments_enabled_p]} {
@@ -46,6 +46,7 @@
 
 # Header stuff
 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