Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -r1.189.2.113 -r1.189.2.114
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl 28 Dec 2021 11:23:13 -0000 1.189.2.113
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl 28 Dec 2021 11:25:40 -0000 1.189.2.114
@@ -2183,43 +2183,6 @@
}
}
-ad_proc -public 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.
-
- @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
-}
-
ad_proc -public util_sets_equal_p { list1 list2 } {
Tests whether each unique string in list1 occurs as many
times in list1 as in list2 and vice versa (regardless of order).