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.16 -r1.17
--- openacs-4/packages/calendar/www/cal-item-new.tcl	22 Sep 2003 21:31:19 -0000	1.16
+++ openacs-4/packages/calendar/www/cal-item-new.tcl	24 Sep 2003 11:15:58 -0000	1.17
@@ -134,6 +134,9 @@
 	set time_p 1 
     } else {
 	set time_p 0
+	set start_hour $start_time
+	set start_time "{} {} {} 0 0 {} {HH24:MI}"
+	set end_time "{} {} {} 0 0 {} {HH24:MI}"
     }
 } -edit_request {
     calendar::item::get -cal_item_id $cal_item_id -array cal_item