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.11 -r1.43.2.12 --- openacs-4/packages/acs-templating/tcl/util-procs.tcl 28 Dec 2021 16:18:11 -0000 1.43.2.11 +++ openacs-4/packages/acs-templating/tcl/util-procs.tcl 28 Dec 2021 17:29:56 -0000 1.43.2.12 @@ -62,25 +62,6 @@ # * Utility procedures for manipulating lists, arrays and ns_sets * # * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * -ad_proc -public template::util::list_opts { {array_ref opts} } { - Converts an array to an option list - - @param array_ref The name of the array in the calling frame containing - option-value pairs. Defaults to "opts". - - @return A list of option-value pairs suitable for appending to a command. -} { - - upvar $array_ref arr - - set ret [list] - foreach {key value} [array get arr] { - lappend ret "-$key" $value - } - - return $ret -} - ad_proc -public template::util::is_nil { ref } { Determines whether a variable both exists and is not an empty string.