Index: openacs-4/packages/acs-datetime/tcl/acs-calendar-2-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-datetime/tcl/acs-calendar-2-procs-oracle.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-datetime/tcl/acs-calendar-2-procs-oracle.xql	22 Jan 2002 23:59:34 -0000	1.1
+++ openacs-4/packages/acs-datetime/tcl/acs-calendar-2-procs-oracle.xql	23 Jan 2002 07:36:31 -0000	1.2
@@ -17,5 +17,17 @@
 </querytext>
 </fullquery>
 
+<fullquery name="dt_widget_day.select_day_info">      
+<querytext>
+select   to_char(to_date(:current_date, 'yyyy-mm-dd'), 'Day, DD Month YYYY') 
+as day_of_the_week,
+to_char(to_date(:current_date, 'yyyy-mm-dd')-1, 'yyyy-mm-dd')
+as yesterday,
+to_char(to_date(:current_date, 'yyyy-mm-dd')+1, 'yyyy-mm-dd')
+as tomorrow
+from     dual
+</querytext>
+</fullquery>
+
  
 </queryset>
Index: openacs-4/packages/acs-datetime/tcl/acs-calendar-2-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-datetime/tcl/acs-calendar-2-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-datetime/tcl/acs-calendar-2-procs.tcl	23 Jan 2002 06:16:16 -0000	1.2
+++ openacs-4/packages/acs-datetime/tcl/acs-calendar-2-procs.tcl	23 Jan 2002 07:36:31 -0000	1.3
@@ -114,15 +114,25 @@
 	set calendar_details [ns_set create calendar_details]
     }
 
+    # Select some basic stuff
+    db_1row select_day_info {}
+
     # Loop through the hours of the day
-    set return_html "<table cellpadding=2 border=1 width=$calendar_width>\n"
+    set return_html "<table border=0 cellpadding=2 width=$calendar_width><tr bgcolor=black><td>
+<table cellpadding=2 border=0 width=100%>\n"
 
     if {$show_nav} {
-        append return_html "<tr bgcolor=lightblue><th colspan=2>&lt; &nbsp; &nbsp; $date &nbsp; &nbsp; &gt;</th></tr>\n"
+        append return_html "<tr bgcolor=lightblue><th colspan=2><a href=?date=$yesterday>&lt;</a> &nbsp; &nbsp; $day_of_the_week &nbsp; &nbsp; <a href=?date=$tomorrow>&gt;</a></th></tr>\n"
     }
 
     for {set hour $start_hour} {$hour < $end_hour} {incr hour} {
 
+        if {$hour < 10} {
+            set index_hour "0$hour"
+        } else {
+            set index_hour $hour
+        }
+
         # display stuff
         if {$hour >= 12} {
             set ampm_hour [expr $hour - 12]
@@ -150,11 +160,17 @@
             append display_hour "am"
         }
 
-        append return_html "<tr bgcolor=#cccccc><td>$display_hour</td><td>\n"
+        append return_html "<tr bgcolor=#cccccc><td width=60><font size=-1>$display_hour</font></td>"
         
+        if {[ns_set find $calendar_details $index_hour] != -1} {
+            append return_html "<td bgcolor=white><font size=-1>"
+        } else {
+            append return_html "<td bgcolor=#cccccc><font size=-1>"
+        }
+
         # Go through events
         while {1} {
-            set index [ns_set find $calendar_details $hour]
+            set index [ns_set find $calendar_details $index_hour]
             if {$index == -1} {
                 break
             }
@@ -164,10 +180,10 @@
             ns_set delete $calendar_details $index
         }
 
-        append return_html "</td></tr>\n"
+        append return_html "</font></td></tr>\n"
     }
 
-    append return_html "</table>"
+    append return_html "</table></td></tr></table>"
     
     return $return_html
 }