Index: openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl,v
diff -u -N -r1.29.2.15 -r1.29.2.16
--- openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl 28 Dec 2021 11:23:13 -0000 1.29.2.15
+++ openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl 28 Dec 2021 11:25:40 -0000 1.29.2.16
@@ -3936,8 +3936,7 @@
correspondingly: key is the name of the var, value is the value of
the var. The caller is (obviously) responsible for freeing the set if need be.
- DEPRECATED: modern ns_set idioms allow to replace this proc with a
- better oneliner in every case.
+ DEPRECATED: modern ns_set idioms make this proc obsolete
@see ns_set
@@ -3969,6 +3968,47 @@
return $set_id
}
+ad_proc -deprecated ad_tcl_vars_list_to_ns_set {
+ -set_id
+ -put:boolean
+ vars_list
+} {
+ Takes a Tcl list of variable names and ns_set update
s values in an ns_set
+ correspondingly: key is the name of the var, value is the value of
+ the var. The caller is (obviously) responsible for freeing the set if need be.
+
+ DEPRECATED: modern ns_set idioms make this proc obsolete
+
+ @see ns_set
+
+ @param set_id If this switch is specified, it'll use this set instead of
+ creating a new one.
+
+ @param put If this boolean switch is specified, it'll use ns_set put
instead
+ of ns_set update
(update is default)
+
+ @param vars_list A Tcl list of variable names that will be transported into the ns_set.
+
+ @author Lars Pind (lars@pinds.com)
+
+} {
+ if { ![info exists set_id] } {
+ set set_id [ns_set create]
+ }
+
+ if { $put_p } {
+ set command put
+ } else {
+ set command update
+ }
+
+ foreach varname $vars_list {
+ upvar $varname var
+ ns_set $command $set_id $varname $var
+ }
+ return $set_id
+}
+
# Local variables:
# mode: tcl
# tcl-indent-level: 4