Index: openacs-4/packages/acs-templating/tcl/deprecated-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/deprecated-procs.tcl,v
diff -u -r1.8.2.5 -r1.8.2.6
--- openacs-4/packages/acs-templating/tcl/deprecated-procs.tcl	28 Dec 2021 16:18:11 -0000	1.8.2.5
+++ openacs-4/packages/acs-templating/tcl/deprecated-procs.tcl	28 Dec 2021 17:29:56 -0000	1.8.2.6
@@ -500,6 +500,29 @@
     }
 }
 
+ad_proc -deprecated template::util::list_opts { {array_ref opts} } {
+    Converts an array to an option list
+
+    DEPRECATED: this proc can be replaced by simple tcl idioms
+
+    @see plain tcl
+
+    @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
+}
+
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4