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.108 -r1.189.2.109 --- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl 28 Dec 2021 09:18:10 -0000 1.189.2.108 +++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl 28 Dec 2021 10:34:45 -0000 1.189.2.109 @@ -2860,22 +2860,6 @@ return $result } - -ad_proc -public util_list_to_ns_set { aList } { - Convert a list in the form "key value key value ..." into an ns_set. - - @param aList The list to convert - - @return The id of a (non-persistent) ns_set -} { - set setid [ns_set create] - foreach {k v} $aList { - ns_set put $setid $k $v - } - - return $setid -} - 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).