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 -N -r1.12 -r1.13
--- openacs-4/packages/calendar/www/cal-item-new.tcl	13 Aug 2003 16:08:33 -0000	1.12
+++ openacs-4/packages/calendar/www/cal-item-new.tcl	18 Aug 2003 07:32:11 -0000	1.13
@@ -111,8 +111,14 @@
     }
 } -new_request {
     set date [template::util::date::from_ansi $date]
-    set time_p 0
     set repeat_p 0
+    if {[info exists start_time] && ![empty_string_p $start_time]} {
+	# Set the start time
+	set start_time "{} {} {} $start_time 0 {} {HH24:MI}"
+	set time_p 1 
+    } else {
+	set time_p 0
+    }
 } -edit_request {
     calendar::item::get -cal_item_id $cal_item_id -array cal_item
     set cal_item_id $cal_item(cal_item_id)