Index: openacs-4/packages/calendar/www/cal-item-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/Attic/cal-item-edit.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/calendar/www/cal-item-edit.tcl	12 Feb 2002 14:13:58 -0000	1.4
+++ openacs-4/packages/calendar/www/cal-item-edit.tcl	11 Mar 2002 16:42:07 -0000	1.5
@@ -11,6 +11,7 @@
     {cal_item_id:integer}
     {view day}
     {action edit}
+    {no_time_p ""}
     {event_date:array ""}
     {start_time:array ""}
     {end_time:array ""}
@@ -34,16 +35,23 @@
 
     ad_returnredirect "${return_url}?[export_url_vars date action view]"
 
+    return
 }
 
 #------------------------------------------------------
 # extract the time info 
 
-set start_datetime [calendar_make_datetime [array get event_date] [array get start_time]]
+if {$no_time_p == 1} {
+    set no_time(hours) 0
+    set no_time(minutes) 0
+    set start_datetime [calendar_make_datetime [array get event_date] [array get no_time]]
+    set end_datetime [calendar_make_datetime [array get event_date] [array get no_time]]
+} else {
+    set start_datetime [calendar_make_datetime [array get event_date] [array get start_time]]
+    set end_datetime [calendar_make_datetime [array get event_date] [array get end_time]]
+}
 
-set end_datetime [calendar_make_datetime [array get event_date] [array get end_time]]
 
-
 #-----------------------------------------------------------------
 # validate time interval ( start_time <= end_time )