Index: openacs-4/packages/calendar/www/cal-item-delete-confirm.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/cal-item-delete-confirm.tcl,v
diff -u -N -r1.10 -r1.10.2.1
--- openacs-4/packages/calendar/www/cal-item-delete-confirm.tcl	17 Dec 2007 14:10:37 -0000	1.10
+++ openacs-4/packages/calendar/www/cal-item-delete-confirm.tcl	22 May 2008 11:34:32 -0000	1.10.2.1
@@ -24,5 +24,6 @@
 
 # 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
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.35.2.1
--- 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	22 May 2008 11:34:32 -0000	1.35.2.1
@@ -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] } {
Index: openacs-4/packages/calendar/www/view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/view.tcl,v
diff -u -N -r1.26 -r1.26.2.1
--- openacs-4/packages/calendar/www/view.tcl	17 Dec 2007 14:10:37 -0000	1.26
+++ openacs-4/packages/calendar/www/view.tcl	22 May 2008 11:34:32 -0000	1.26.2.1
@@ -64,5 +64,6 @@
 
 # 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 
Index: openacs-4/packages/calendar/www/resources/calendar-hc.css
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/resources/calendar-hc.css,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar/www/resources/calendar-hc.css	22 May 2008 11:34:32 -0000	1.1.2.1
@@ -0,0 +1,154 @@
+/*  Month View  ---------------------------------------------------*/
+.cal-month-day {
+	background: inherit;
+}
+
+.cal-month-day:hover {
+	background: #555555;
+}
+
+.cal-month-today {
+	background-color: #555555;
+}
+
+.cal-month-today:hover {
+	background: #555555;
+}
+
+.cal-month-day-inactive {
+	background: #aaaaaa;
+}
+
+.cal-month-event {
+	border:1px #ffffff solid;
+	-moz-opacity:1; 
+	filter:alpha(opacity=100);
+}
+
+.cal-month-event a {
+    color: #000000;
+}
+
+.cal-month-table {
+	border-top: 1px #ffffff solid;
+	border-left: 1px #ffffff solid;
+}
+
+.cal-month-table td {
+	border-right: 1px #ffffff solid;
+	border-bottom: 1px #ffffff solid;
+}
+
+/* END Month View  ---------------------------------------------------*/
+
+/* at-a-glance ---------------------------------------------------*/
+/* This is the small cal that appears in month/week/day views on the left hand side*/
+
+#at-a-glance td {
+    border-right: 1px solid #ffffff;
+	border-bottom: 1px solid #ffffff;
+	background-color: inherit;
+}
+
+#at-a-glance td.selected {
+	background-color: #555555;
+}
+
+#at-a-glance td.inactive {
+	background-color: #aaaaaa;
+}
+
+#at-a-glance td.active {
+	background-color: inherit;
+}
+
+#at-a-glance td.active:hover {
+	background-color: #555555;
+}
+
+#at-a-glance td.today {
+	background-color: #555555;
+}
+/* END at-a-glance ---------------------------------------------------*/
+
+
+.cal-text-grey-sml {
+	color: inherit;
+}
+
+/*  Week/Day View Common Styles  ---------------------------------------------------*/
+#cal-table-day, #cal-table-week  {
+	background-color: #ffffff;
+}
+
+.day-time-1 {
+	border:1px #ffffff solid;
+	background-color: #222222;
+}
+
+.day-time-2 {
+	border:1px #ffffff solid;
+	background-color:#555555;
+}
+
+/*  Week View  ---------------------------------------------------*/
+
+.week-event-1 {
+	background-color:#222222;
+}
+
+.week-event-2 {
+	background-color:#555555;
+}
+
+.week-entry-box a {
+	color: #000000;
+}
+
+.week-entry-item {
+	border:1px #ffffff solid;
+	-moz-opacity:1; 
+	filter:alpha(opacity=100);
+}
+
+/*  END Week View  ---------------------------------------------------*/
+
+/*  Day View  ---------------------------------------------------*/
+.day-event-1 {
+	border:0px #ffffff solid;
+	background-color:#222222;
+}
+
+.day-event-2 {
+	border:0px #ffffff solid;
+	background-color:#555555;
+}
+
+.day-entry-item {
+	border:1px #ffffff solid;
+	-moz-opacity:1; 
+	filter:alpha(opacity=100);
+}
+
+.day-entry-item a {
+    color: #000000;
+}
+
+/*  END Day View  ---------------------------------------------------*/
+
+/* view-list-display ---------------------------------------------------*/
+
+.cal-table-list thead {
+	background-color:#555555;
+	color: inherit;
+}
+
+/* END view-list-display ---------------------------------------------------*/
+
+.topnavbar { 
+	background:#555555; 
+}
+
+.topnavbar .active { 
+	background:#222222; 
+}
Index: openacs-4/packages/calendar-portlet/www/calendar-full-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-portlet/www/calendar-full-portlet.tcl,v
diff -u -N -r1.36 -r1.36.2.1
--- openacs-4/packages/calendar-portlet/www/calendar-full-portlet.tcl	18 Dec 2007 21:42:11 -0000	1.36
+++ openacs-4/packages/calendar-portlet/www/calendar-full-portlet.tcl	22 May 2008 11:34:32 -0000	1.36.2.1
@@ -57,6 +57,7 @@
 
 # Styles for calendar
 template::head::add_css -href "/resources/calendar/calendar.css"
+template::head::add_css -alternate -href "/resources/calendar/calendar-hc.css" -title "highContrast"
 
 # set the period_days for calendar's list view, therefore we need
 # to check which instance of calendar is currently displayed
Index: openacs-4/packages/calendar-portlet/www/calendar-list-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-portlet/www/calendar-list-portlet.tcl,v
diff -u -N -r1.12 -r1.12.2.1
--- openacs-4/packages/calendar-portlet/www/calendar-list-portlet.tcl	18 Dec 2007 21:42:11 -0000	1.12
+++ openacs-4/packages/calendar-portlet/www/calendar-list-portlet.tcl	22 May 2008 11:34:32 -0000	1.12.2.1
@@ -103,5 +103,6 @@
 
 # Stylesheet
 template::head::add_css -href "/resources/calendar/calendar.css"
+template::head::add_css -alternate -href "/resources/calendar/calendar-hc.css" -title "highContrast"
 
 ad_return_template
Index: openacs-4/packages/calendar-portlet/www/calendar-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-portlet/www/calendar-portlet.tcl,v
diff -u -N -r1.31 -r1.31.2.1
--- openacs-4/packages/calendar-portlet/www/calendar-portlet.tcl	18 Dec 2007 21:42:11 -0000	1.31
+++ openacs-4/packages/calendar-portlet/www/calendar-portlet.tcl	22 May 2008 11:34:32 -0000	1.31.2.1
@@ -167,5 +167,6 @@
 }
 
 template::head::add_css -href "/resources/calendar/calendar.css"
+template::head::add_css -alternate -href "/resources/calendar/calendar-hc.css" -title "highContrast"
 
 ad_return_template