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.13 -r1.14 --- openacs-4/packages/calendar/tcl/cal-item-2-procs.tcl 25 Sep 2003 23:11:11 -0000 1.13 +++ openacs-4/packages/calendar/tcl/cal-item-2-procs.tcl 11 Dec 2003 21:39:59 -0000 1.14 @@ -41,7 +41,7 @@ return [cal_item_create $start_date $end_date $name $description $calendar_id [ad_conn peeraddr] [ad_conn user_id] $item_type_id] } else { # FIXME: do this better - ad_return_complaint 1 "Start Time must be before End Time" + ad_return_complaint 1 [_ calendar.start_time_before_end_time] ad_script_abort } @@ -123,13 +123,14 @@ {-description:required} {-item_type_id ""} {-edit_all_p 0} + {-calendar_id ""} } { Edit the item } { 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] + return [cal_item_update $cal_item_id $start_date $end_date $name $description $item_type_id $edit_all_p $calendar_id] } else { # FIXME: do this better ad_return_complaint 1 "Start Time must be before End Time"