Index: openacs-4/packages/calendar/tcl/cal-item-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/cal-item-procs.tcl,v diff -u -r1.35.2.5 -r1.35.2.6 --- openacs-4/packages/calendar/tcl/cal-item-procs.tcl 19 Feb 2020 11:32:58 -0000 1.35.2.5 +++ openacs-4/packages/calendar/tcl/cal-item-procs.tcl 19 Feb 2021 09:47:12 -0000 1.35.2.6 @@ -157,8 +157,8 @@ set row(all_day_event_p) $all_day_event_p set row(time_p) [expr {!$all_day_event_p}] - ns_log notice "calendar::item::get $row(start_date_ansi) eq $row(end_date_ansi) => $row(time_p)" - + #ns_log notice "calendar::item::get $row(start_date_ansi) eq $row(end_date_ansi) => $row(time_p)" + # Localize set row(start_time) [lc_time_fmt $row(start_date_ansi) "%X"] @@ -222,10 +222,12 @@ if {[dates_valid_p -start_date $start_date -end_date $end_date]} { if {$edit_all_p} { set recurrence_id [db_string select_recurrence_id {}] - - # If the recurrence id is NULL, then we stop here and just do the normal update + # + # If the recurrence id is empty (coming from NULL value), + # then we stop here and just do the normal update + # if {$recurrence_id ne ""} { - ns_log notice "recurrence_id $recurrence_id" + #ns_log notice "recurrence_id $recurrence_id" calendar::item::edit_recurrence \ -event_id $cal_item_id \ -start_date $start_date \ Index: openacs-4/packages/calendar/tcl/test/calendar-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/test/calendar-procs.tcl,v diff -u -r1.3.2.2 -r1.3.2.3 --- openacs-4/packages/calendar/tcl/test/calendar-procs.tcl 18 Feb 2021 17:40:02 -0000 1.3.2.2 +++ openacs-4/packages/calendar/tcl/test/calendar-procs.tcl 19 Feb 2021 09:47:12 -0000 1.3.2.3 @@ -27,6 +27,8 @@ calendar::delete calendar::rename calendar::name + calendar::exists_p + acs::test::user::create } calendar_basic_api { Create, rename and delete a calendar