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 -r1.15 -r1.16
--- openacs-4/packages/calendar/www/cal-item-new.tcl	3 Sep 2003 13:48:31 -0000	1.15
+++ openacs-4/packages/calendar/www/cal-item-new.tcl	22 Sep 2003 21:31:19 -0000	1.16
@@ -126,9 +126,11 @@
 } -new_request {
     set date [template::util::date::from_ansi $date]
     set repeat_p 0
-    if {[info exists start_time] && ![empty_string_p $start_time]} {
+    if {[info exists start_time] && ![empty_string_p $start_time] && $start_time != 0} {
 	# Set the start time
+	set start_hour $start_time
 	set start_time "{} {} {} $start_time 0 {} {HH24:MI}"
+	set end_time "{} {} {} [expr $start_hour + 1] 0 {} {HH24:MI}"
 	set time_p 1 
     } else {
 	set time_p 0