Index: openacs-4/packages/calendar/tcl/cal-item-2-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/Attic/cal-item-2-procs.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/calendar/tcl/cal-item-2-procs.tcl	25 Sep 2003 08:54:35 -0000	1.12
+++ openacs-4/packages/calendar/tcl/cal-item-2-procs.tcl	25 Sep 2003 23:11:11 -0000	1.13
@@ -127,7 +127,14 @@
         Edit the item
 
     } {
-        cal_item_update $cal_item_id $start_date $end_date $name $description $item_type_id $edit_all_p
+        if {[dates_valid_p -start_date $start_date -end_date $end_date]} {
+            # For now we call the old nasty version
+	    return [cal_item_update $cal_item_id $start_date $end_date $name $description $item_type_id $edit_all_p]
+        } else {
+            # FIXME: do this better
+            ad_return_complaint 1 "Start Time must be before End Time"
+            ad_script_abort
+        }
     }
 
     ad_proc -public delete {