Index: openacs-4/packages/acs-templating/tcl/util-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/util-procs.tcl,v diff -u -r1.43.2.12 -r1.43.2.13 --- openacs-4/packages/acs-templating/tcl/util-procs.tcl 28 Dec 2021 17:29:56 -0000 1.43.2.12 +++ openacs-4/packages/acs-templating/tcl/util-procs.tcl 27 Jan 2022 09:23:58 -0000 1.43.2.13 @@ -538,29 +538,6 @@ return $ret } -ad_proc -public template::util::tcl_to_sql_list { lst } { - Convert a Tcl list to a SQL list, for use with the "in" statement. - Uses double single quotes (similar to ns_dbquotevalue) to escape single quotes - - Note: this proc could be deprecated in the not so far future, as - Naviserver now provides a native api for this and a - tcl-implemented fallback exists in current OpenACS code. - - @see ns_dbquotelist -} { - - if { [llength $lst] > 0 } { - # replace single quotes by two single quotes - regsub -all -- ' "$lst" '' lst2 - set sql "'" - append sql [join $lst2 "', '"] - append sql "'" - return $sql - } else { - return "" - } -} - ad_proc -public template::themed_template { {-verbose:boolean false} path