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 -N -r1.35 -r1.36
--- openacs-4/packages/calendar/www/cal-item-new.tcl	17 Dec 2007 14:10:37 -0000	1.35
+++ openacs-4/packages/calendar/www/cal-item-new.tcl	30 Aug 2008 19:51:23 -0000	1.36
@@ -14,7 +14,7 @@
     {julian_date ""}
     {start_time ""}
     {end_time ""}
-    {view "month"}
+    {view "day"}
     {return_url "./"}
 }
 auth::require_login
@@ -34,6 +34,7 @@
 # Header stuff
 template::add_body_handler -event "onload" -script "TimePChanged()"
 template::head::add_css -href "/resources/calendar/calendar.css" -media all
+template::head::add_css -alternate -href "/resources/calendar/calendar-hc.css" -title "highContrast"
 
 # TODO: Move into ad_form
 if { ![ad_form_new_p -key cal_item_id] } {