Index: openacs-4/packages/acs-datetime/tcl/acs-calendar-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-datetime/tcl/acs-calendar-procs.tcl,v
diff -u -N -r1.7 -r1.8
--- openacs-4/packages/acs-datetime/tcl/acs-calendar-procs.tcl	15 May 2002 22:34:52 -0000	1.7
+++ openacs-4/packages/acs-datetime/tcl/acs-calendar-procs.tcl	15 May 2002 23:37:42 -0000	1.8
@@ -44,6 +44,8 @@
 } {
     dt_get_info $date
 
+    set today_date [dt_sysdate]    
+
     if [empty_string_p $calendar_details] {
 	set calendar_details [ns_set create calendar_details]
     }
@@ -106,17 +108,13 @@
 
     append output "</tr><tr>\n"
 
-    # This is not necessary (ben)
-#      if { $fill_all_days == 0 } {
-#  	for { set n 1} { $n < $first_day_of_month } { incr n } {
-#  	    append output "<td bgcolor=$empty_bgcolor align=right valign=top></td>\n"
-#  	}
-#      }
-
     set day_of_week 1
     set julian_date $first_julian_date
     set day_number $first_day
 
+    set today_ansi_list [dt_ansi_to_list $today_date]
+    set today_julian_date [dt_ansi_to_julian [lindex $today_ansi_list 0] [lindex $today_ansi_list 1] [lindex $today_ansi_list 2]]
+
     while {1} {
 
         if {$julian_date < $first_julian_date_of_month} {
@@ -152,7 +150,13 @@
 		append output "[subst $day_number_template]&nbsp;"
 	    }
 	} else {
-	    append output "<td bgcolor=$day_bgcolor align=left valign=top>[subst $day_number_template]&nbsp;"
+            if {$julian_date == $today_julian_date} {
+                set the_bgcolor $today_bgcolor
+            } else {
+                set the_bgcolor $day_bgcolor
+            }
+
+	    append output "<td bgcolor=$the_bgcolor align=left valign=top>[subst $day_number_template]&nbsp;"
 	}
 
 	if { (!$skip_day) && $large_calendar_p == 1 } {