Index: openacs-4/packages/caldav/tcl/caldav-interface-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/caldav/tcl/caldav-interface-procs.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/caldav/tcl/caldav-interface-procs.tcl 11 Sep 2024 06:15:49 -0000 1.2 +++ openacs-4/packages/caldav/tcl/caldav-interface-procs.tcl 23 Oct 2024 17:31:15 -0000 1.3 @@ -194,6 +194,9 @@ {-with_sync_calendar:boolean true} user_id:integer } { + # + # @return the calendar_ids, which should be always returned + # lappend calendar_ids {*}[::caldav::get_public_calendars] if {$with_sync_calendar} { lappend calendar_ids [::caldav::get_sync_calendar -user_id $user_id] @@ -204,6 +207,9 @@ :public object method alwaysQueriedClause { user_id:integer } { + # + # @return SQL clause which is always queried + # set calendar_ids [:alwaysQueriedCalendars $user_id] if {[llength $calendar_ids] > 0} { set values [::xo::db::list_to_values $calendar_ids integer]