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.3 -r1.4
--- openacs-4/packages/caldav/tcl/caldav-interface-procs.tcl	23 Oct 2024 17:31:15 -0000	1.3
+++ openacs-4/packages/caldav/tcl/caldav-interface-procs.tcl	28 Oct 2024 15:07:46 -0000	1.4
@@ -113,7 +113,7 @@
         #
         #
         if {[llength $calendar_ids] > 1} {
-            set calclause "in ( [template::util::tcl_to_sql_list $calendar_ids] )"
+            set calclause "in ( [ns_dbquotelist $calendar_ids] )"
         } elseif {[llength $calendar_ids] eq 0} {
             return 0
         } else {
@@ -171,7 +171,7 @@
         # - we could pass-in a calendar-clause, would save a query in
         #   the PUT case
         #if {[llength $calendar_ids] > 1} {
-        #    set calclause "in ( [template::util::tcl_to_sql_list $calendar_ids] )"
+        #    set calclause "in ( [ns_dbquotelist $calendar_ids] )"
         #} elseif {[llength $calendar_ids] eq 0} {
         #    return 0
         #} else {
@@ -266,7 +266,7 @@
         } elseif {[llength $calendar_ids] == 1} {
             set clause [subst {and $attr = :calendar_ids}]
         } else {
-            set clause [subst {and $attr in ( [template::util::tcl_to_sql_list $calendar_ids] )}]
+            set clause [subst {and $attr in ( [ns_dbquotelist $calendar_ids] )}]
         }
         :debug calendar_clause=$clause-calendar_ids=$calendar_ids
         return $clause