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.29 -r1.30
--- openacs-4/packages/acs-datetime/tcl/acs-calendar-2-procs.tcl 22 Jul 2002 21:46:19 -0000 1.29
+++ openacs-4/packages/acs-datetime/tcl/acs-calendar-2-procs.tcl 8 Sep 2002 04:17:37 -0000 1.30
@@ -152,8 +152,8 @@
-start_hour {0}
-end_hour {23}
-show_nav 1
- -prev_nav_template {<}
- -next_nav_template {>}
+ -prev_nav_template {<}
+ -next_nav_template {>}
-master_bgcolor "black"
-header_bgcolor "black"
-header_text_color "white"
@@ -206,7 +206,6 @@
set item_val [ns_set value $calendar_details_2 $index]
ns_set delete $calendar_details_2 $index
-
# Count the num of events starting at this hour
set n_starting_events($hour) [expr $n_starting_events($hour) + 1]
@@ -216,7 +215,7 @@
# Count the num of events at the hours of operations
for {set i 0} {$i <= $hours_diff} {incr i} {
set the_hour [expr $hour + $i]
- set n_events($the_hour) [expr $n_events($the_hour) + 1]
+ set n_events($the_hour) [expr $n_events([expr $the_hour - $i]) + 1]
}
}
}
@@ -230,7 +229,7 @@
}
}
- # Select some basic stuff
+ # Select some basic stuff, sets day_of_the_week, yesterday, tomorrow vars
db_1row select_day_info {}
set return_html ""