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.31 -r1.32
--- openacs-4/packages/acs-datetime/tcl/acs-calendar-2-procs.tcl	10 Sep 2002 22:22:07 -0000	1.31
+++ openacs-4/packages/acs-datetime/tcl/acs-calendar-2-procs.tcl	18 Sep 2002 21:03:59 -0000	1.32
@@ -15,8 +15,8 @@
 	-calendar_details "" 
 	-date "" 
 	-large_calendar_p 1 
-	-master_bgcolor "black" 
-	-header_bgcolor "black" 
+	-master_bgcolor "" 
+	-header_bgcolor "" 
 	-header_text_color "white" 
 	-header_text_size "+2" 
 	-day_template {<!--$julian-->$day} 
@@ -65,12 +65,12 @@
 
     # Loop through the days of the week
     set julian $sunday_julian
-    set return_html "<table CELLPADDING=3 CELLSPACING=0 BORDER=0 width=95%>\n"
+    set return_html "<table CELLPADDING=0 CELLSPACING=0 BORDER=0 width=95%>\n"
     
     # Navigation Bar
     append return_html "<tr><td>
-    <table cellpadding=3 cellspacing=0 border=0 width=90%>
-    <tr bgcolor=lavender>
+    <table cellpadding=3 cellspacing=0 border=0 width=90% class=\"table-display\">
+    <tr class=\"table-header\" bgcolor=lavender>
     <td align=center>
     [subst $prev_week_template]
     <FONT face=\"Arial,Helvetica\" SIZE=-1>
@@ -86,7 +86,7 @@
 
     append return_html "<tr>
     <td>
-    <table cellpadding=3 cellspacing=0 border=1 width=90%>"
+    <table  class=\"table-display\" cellpadding=0 cellspacing=0 border=0 width=90%>"
 
     set days_of_week {Sunday Monday Tuesday Wednesday Thursday Friday Saturday}
     foreach day $days_of_week {
@@ -103,12 +103,12 @@
             set bgcolor $day_bgcolor
         }
 
-        append return_html "<tr><td bgcolor=\"$bgcolor\">$day_html &nbsp;
+        append return_html "<tr><td class=\"cal-week\" bgcolor=\"$bgcolor\">$day_html &nbsp;
         </td>
         </tr>
         <tr>
-        <td>
-        <table border=0 width=100%>"
+        <td class=\"cal-week-event\">
+        <table cellpadding=0 cellspacing=0 border=0 width=100%>"
 	    
         # Go through events
         while {1} {
@@ -119,7 +119,7 @@
 
             append return_html "
             <tr>
-            <td>
+            <td class=\"cal-week-event\">
             <font size=-1>
             [ns_set value $calendar_details $index]		    
 	    </font>
@@ -183,7 +183,7 @@
     }
 
     # Collect some statistics about the events (for overlap)
-    for {set hour $start_hour} {$hour <= $end_hour} {incr hour} {
+    for {set hour $start_hour} {$hour <= 23} {incr hour} {
         set n_events($hour) 0
         set n_starting_events($hour) 0
     }
@@ -237,20 +237,22 @@
     if {$show_nav} {
         set prev_nav [subst $prev_nav_template]
         set next_nav [subst $next_nav_template]
-        append return_html "<table border=0 cellpadding=0 width=$calendar_width><tr bgcolor=#dddddd><th> $prev_nav &nbsp; &nbsp; $day_of_the_week $next_nav &nbsp; &nbsp; </th></tr></table><p>\n"
+        append return_html "<table border=0 cellspacing=0 cellpadding=0 width=$calendar_width><tr class=\"table-header\"><th> $prev_nav &nbsp; &nbsp; $day_of_the_week $next_nav &nbsp; &nbsp; </th></tr>
+</table>"
     }
 
     # Loop through the hours of the day
-    append return_html "<table border=0 cellpadding=0 cellspacing=0 width=$calendar_width><tr bgcolor=\"black\"><td bgcolor=\"black\">
-    <table cellpadding=1 cellspacing=1 border=0 width=100%>\n"
+    append return_html "<table border=0 cellpadding=0 cellspacing=0 width=$calendar_width><tr><td><table cellpadding=1 cellspacing=0 border=0 width=100%>
+"
 
     # The items that have no hour
     set hour ""
     set next_hour ""
     set start_time ""
-    set display_hour "No Time"
-    append return_html "<tr><td bgcolor=\"white\" width=\"10%\" nowrap><font size=-1>&nbsp;[subst $hour_template]&nbsp;</font></td>"
-    append return_html "<td bgcolor=\"#f0f0f0\" colspan=\"$max_n_events\"><font size=-1>"
+    set odd_row_p 0
+    set display_hour "<img border=0 align=\"center\" src=\"/doc/acs-datetime/pics/diamond.gif\" alt=\"No Time\">"
+    append return_html "<tr class=\"z_light\"><td class=\"center\" align=\"left\" width=\"60\" \"nowrap\"><font size=-1>[subst $hour_template]</font></td>"
+    append return_html "<td colspan=\"$max_n_events\"><font size=-1>"
     
     # Go through events
     while {1} {
@@ -268,7 +270,8 @@
         ns_set delete $calendar_details $index
     }
 
-    append return_html "</font></td></tr>"
+    append return_html "</font>
+    </td></tr>"
     
     for {set hour $start_hour} {$hour <= $end_hour} {incr hour} {
         
@@ -294,7 +297,7 @@
         }
 
         if {$ampm_hour < 10} {
-            set display_hour "0$ampm_hour"
+            set display_hour "$ampm_hour"
         } else {
             set display_hour "$ampm_hour"
         }
@@ -307,8 +310,16 @@
             append display_hour "am"
         }
 
+	if { $odd_row_p } {
+	    set class "z_light"
+	    set odd_row_p 0
+	} else {
+	    set class "z_dark"
+	    set odd_row_p 1
+	}
+
         set display_hour [subst $hour_template]
-        append return_html "<tr><td bgcolor=\"white\" width=\"10%\" nowrap><font size=-1>&nbsp;$display_hour&nbsp;</font></td>"
+        append return_html "<tr class=\"$class\"><td class=\"center\" align=left width=\"60\" \"nowrap\"><nobr><font size=-2>$display_hour</font></nobr></td>\n"
         
         set n_processed_events 0
         
@@ -348,7 +359,7 @@
                     set colspan 1
                 } 
 
-                append return_html "<td valign=top bgcolor=\"white\" rowspan=[expr $hour_diff + 1] colspan=$colspan><font size=-1>[lindex $one_item_val 2]</font></td>"
+                append return_html "<td valign=top rowspan=[expr $hour_diff + 1] colspan=$colspan><font size=-1>[lindex $one_item_val 2]</font></td>"
             } else {
                 append return_html "[ns_set value $calendar_details $index]<br>\n"
             }
@@ -358,10 +369,10 @@
 
         if {$n_processed_events == 0 || ($n_events($hour) < $max_n_events && $must_complete_p)} {
             if {$n_events($hour) == 0 || $n_events($hour) == $n_processed_events} {
-		append return_html "<td colspan=\"[expr $max_n_events - $n_events($hour)]\" bgcolor=\"#dddddd\">&nbsp;</td>"
+		append return_html "<td colspan=\"[expr $max_n_events - $n_events($hour)]\" class=\"$class\">&nbsp;</td>"
 	    } else {
 		for {set i 0} {$i < [expr "$max_n_events - $n_events($hour)"]} {incr i} {
-		    append return_html "<td colspan=\"1\" bgcolor=\"#dddddd\">&nbsp;</td>"
+		    append return_html "<td colspan=\"1\" class=$class>&nbsp;</td>"
 		}
 	    }
 	    
@@ -371,7 +382,9 @@
         append return_html "</tr>\n"
     }
 
-    append return_html "</table></td></tr></table>"
+    append return_html "</table>
+</td></tr>
+</table>"
     
     return $return_html
 }
@@ -400,7 +413,8 @@
 
     # The title
     if {[empty_string_p $start_date] && [empty_string_p $end_date]} {
-        set title "All Items"
+	#This used to be All Items but that was just taking up space and not adding value so now we assume All Items and only give a title if its something else. - Caroline@meekshome.com
+        set title ""
     }
 
     if {[empty_string_p $start_date] && ![empty_string_p $end_date]} {
@@ -426,10 +440,8 @@
 
     # Create the header
     append return_html "
-    <table border=0 cellspacing=0 cellpadding=1>
-    <tr bgcolor=black><td bgcolor>
-    <table border=0 cellspacing=1 cellpadding=2>
-    <tr bgcolor=#aaaaaa><th>Day of Week</th><th><a href=\"$start_date_url\">Date</a></th><th>Start Time</th><th>End Time</th>"
+    <table class=\"table-display\" border=0 cellspacing=0 cellpadding=2>
+    <tr class=\"table-header\"><th>Day of Week</th><th><a href=\"$start_date_url\">Date</a></th><th>Start Time</th><th>End Time</th>"
 
     if {$real_order_by != "item_type"} {
         append return_html "<th><a href=\"$item_type_url\">Type</a></th>"
@@ -466,20 +478,20 @@
             } else {
                 set item_type_for_title $item_type
             }
-            append return_html "<tr bgcolor=#bbbbbb><td colspan=5><b>$item_type_for_title</b></td></tr>\n"
+            append return_html "<tr class=\"table-title\"><td colspan=5><b>$item_type_for_title</b></td></tr>\n"
             set flip 0
         }
 
         set old_item_type $item_type
 
         if {[expr $flip % 2] == 0} {
-            set bgcolor white
+            set z_class z_light 
         } else {
-            set bgcolor #dddddd
+            set z_class z_dark
         }
         
         append return_html "
-        <tr bgcolor=$bgcolor><td>$weekday</td><td>$date</td><td>$start_time</td><td>$end_time</td>"
+        <tr class=$z_class><td>$weekday</td><td>$date</td><td>$start_time</td><td>$end_time</td>"
         
         if {$real_order_by != "item_type"} {
             append return_html "<td>$item_type</td>"
@@ -489,7 +501,8 @@
         incr flip
     }
 
-    append return_html "</table></td></tr></table>\n"
+    append return_html "</table>
+<!-- End of dt_widget_list --->"
 
     return $return_html
 }
@@ -516,6 +529,13 @@
         return 1
     }
     
+    if {[regexp {[0-9]+-[0-9]+[0-9]+ (0?)0:0(0?)} $time the_match]} {
+	return 1
+    }
+
+    if {[regexp {[0-9]+-[0-9]+ (0?)0:0(0?)} $time the_match]} {
+	return 1
+    }
     return 0
 }
 
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 -r1.10 -r1.11
--- openacs-4/packages/acs-datetime/tcl/acs-calendar-procs.tcl	14 Sep 2002 16:50:17 -0000	1.10
+++ openacs-4/packages/acs-datetime/tcl/acs-calendar-procs.tcl	18 Sep 2002 21:03:59 -0000	1.11
@@ -77,9 +77,9 @@
 	</td>\n"
     } else {
 	set title "
-	<td colspan=7>
+	<td class=\"no-border\" colspan=7>
 	<table width=100% cellpadding=0 cellspacing=0 border=0>
-	<tr>
+	<tr class=\"table-header\">
 	<td align=left>$prev_month_url</td>
 	<td align=center><font size=$header_text_size color=$header_text_color>
 	<b>$month_heading</b></font>
@@ -93,13 +93,13 @@
     # Write out the header and the days of the week
 
     append output "
-    <table bgcolor=$master_bgcolor cellpadding=3 cellspacing=0 border=1 width=$calendar_width>
+    <table class=\"table-display\" bgcolor=$master_bgcolor cellpadding=0 cellspacing=0 border=1 width=$calendar_width>
     <tr bgcolor=$header_bgcolor> $title </tr>
-    <tr bgcolor=$day_header_bgcolor>\n"
+    <tr bgcolor=$day_header_bgcolor class=\"table-header\">\n"
 
     foreach day_of_week $days_of_week {
 	append output "
-	<td width=14% align=center>
+	<td width=14% align=center class=\"no-border\">
 	<font face=\"Verdana,Arial,Helvetica\" size=$day_header_size color=$day_text_color>
 	<b>$day_of_week</b>
 	</font>
@@ -143,7 +143,7 @@
 	set skip_day 0
 
 	if {$before_month_p || $after_month_p} {
-	    append output "<td bgcolor=$empty_bgcolor align=right valign=top>&nbsp;"
+	    append output "<td class=\"no-border\" bgcolor=$empty_bgcolor align=right valign=top>&nbsp;"
 	    if { $fill_all_days == 0 } {
 		set skip_day 1
 	    } else {
@@ -152,11 +152,13 @@
 	} else {
             if {$julian_date == $today_julian_date} {
                 set the_bgcolor $today_bgcolor
+		set the_class "cal-month-today"
             } else {
                 set the_bgcolor $day_bgcolor
+		set the_class "cal-month-day"
             }
 
-	    append output "<td bgcolor=$the_bgcolor align=left valign=top>[subst $day_number_template]&nbsp;"
+	    append output "<td class=$the_class bgcolor=$the_bgcolor align=left valign=top>[subst $day_number_template]&nbsp;"
 	}
 
 	if { (!$skip_day) && $large_calendar_p == 1 } {
@@ -422,21 +424,21 @@
     # properly
 
     append result "
-    <tr align=center>"
+    <tr align=center class=\"table-header\">"
     
     # ben: taking out year for now, since it doesn't work
     foreach viewname {list day week month} {
         set text [string toupper $viewname 0]
         if { $viewname == $view } {
             # current view
-            append result "<td bgcolor=ffd700>
-    <font size=-1>$text</font>
+            append result "<td class=\"selected\">
+    <font size=-1><b>$text</b></font>
     </td>
     "
         } else {
-            append result "<td>
+            append result "<td class=\"no-border\">
     <a href=\"$base_url" "view=$viewname&date=$date\">
-    <font size=-1 color=blue>$text</font></a>
+    <font size=-1><b>$text</b></font></a>
     </td>
     "
         }
@@ -473,7 +475,7 @@
 
     append result "
     <tr>
-    <td nowrap align=center bgcolor=lavender colspan=5>
+    <td nowrap align=center colspan=5 class=\"no-border\">
     <table cellspacing=0 cellpadding=1 border=0>
     <tr><td nowrap valign=middle>
     <a href=\"$base_url" "view=$view&date=[ns_urlencode $prev_year]\">
@@ -503,12 +505,12 @@
     set next_month [clock format [clock scan "1 month" -base $now] -format "%Y-%m-%d"]
 
     append results "
-    <tr><td nowrap align=center bgcolor=lavender colspan=5>
+    <tr><td class=\"bottom-border\" nowrap align=center colspan=5>
     <table cellspacing=0 cellpadding=1 border=0>
     <tr><td nowrap valign=middle>
     <a href=\"$base_url" "view=$view&date=[ns_urlencode $prev_month]\">
     <img border=0 src=[dt_left_arrow]></a>
-    <tt><b>$curr_month</b></tt>
+    <font size=-1><b>$curr_month</b></font>
     <a href=\"$base_url" "view=$view&date=[ns_urlencode $next_month]\">
     <img border=0 src=[dt_right_arrow]></a>
     </td>
@@ -570,7 +572,7 @@
     dt_get_info $date
 
     set output "
-    <table border=1 cellpadding=1 cellspacing=0 width=160>
+    <center><table class=\"table-display\" border=1 cellpadding=1 cellspacing=0 width=160>
 
     [dt_navbar_view $view $base_url $date]
 
@@ -580,7 +582,7 @@
 	# month view
 	append output "
 	<tr>
-	<td colspan=5>
+	<td class=\"no-borders\" colspan=5>
 	<table bgcolor=ffffff cellspacing=3 cellpadding=1 border=0>
 	<tr>
 	"
@@ -656,15 +658,17 @@
 	</td>
 	</tr>
 
-	<tr><td colspan=5>
-	<table bgcolor=ffffff cellspacing=3 cellpadding=1 border=0>
+	<tr><td class=\"bottom-border\"colspan=5>
+	<table cellspacing=3 cellpadding=1>
+	<tr>
 	"
 
-	set days_of_week [list Su Mo Tu We Th Fr Sa]
+	set days_of_week [list S M T W T F S]
 
 	foreach day_of_week $days_of_week {
 	    append output "<td align=right><font size=-1><b>$day_of_week</b></td>\n"
 	}
+	append output "</tr><tr><td colspan=7><hr></td></tr>"
 
 	set day_of_week 1
 	set julian_date $first_julian_date
@@ -737,24 +741,26 @@
     </td>
     </tr>
     </table>
+    </center>
     </td>
     </tr>
-    <tr><td align=center bgcolor=lavender colspan=5>
-    <table cellspacing=0 cellpadding=1 border=0 bgcolor=lavender>
-    <td><td>
-    <font size=-1>"
+    <tr class=\"table-header\"><td align=center colspan=5>
+    <table cellspacing=0 cellpadding=0 border=0>
+    <tr><td nowrap>
+    <font size=-2>"
 
     if { $view == "day" && [dt_sysdate] == $date } {
         append output "<b>Today</b>"
     } else {
-        append output "<a href=\"$today_url\"><font color=blue>
-    <b>Today</b></font></a> "
+        append output "<a href=\"$today_url\">
+    <b>Today</b></a> "
     }
     
     append output "
-    is [dt_ansi_to_pretty]</font><br>
+    is [dt_ansi_to_pretty]</font></td></tr>
+    <tr><td align=center><br>
     <form method=get action=$base_url>
-    Go to: <INPUT TYPE=text name=date size=10> <INPUT type=submit value=go>
+    <INPUT TYPE=text name=date size=10> <INPUT type=image src=\"/doc/acs-datetime/pics/go.gif\" alt=\"Go\" border=0><br><font size=-2>Date as YYYYMMDD</font>
     <INPUT TYPE=hidden name=view value=day>
     "
 
@@ -765,7 +771,6 @@
     append output "
     </form>
     </td>
-    </td>
     </tr>
     </table>
     </td>
Index: openacs-4/packages/acs-datetime/www/doc/requirements.html
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-datetime/www/doc/requirements.html,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-datetime/www/doc/requirements.html	20 Apr 2001 20:51:09 -0000	1.1
+++ openacs-4/packages/acs-datetime/www/doc/requirements.html	18 Sep 2002 21:04:01 -0000	1.2
@@ -125,6 +125,13 @@
 
 <pre>
 $Log$
+Revision 1.1.1.1  2002/06/25 17:42:13  aegrumet
+OpenACS and dotLRN heads, 2002-06-13
+
+Revision 1.1.1.1  2001/04/20 20:51:09  donb
+
+Forgot to define binary files before importing, so .gifs were messed up.
+
 Revision 1.7  2001/01/07 13:19:16  jfinkler
 fixed a few typos and reworded a bit