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 -r1.29.2.28 -r1.29.2.29
--- openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl 29 Aug 2022 10:34:19 -0000 1.29.2.28
+++ openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl 28 Sep 2022 08:20:28 -0000 1.29.2.29
@@ -4023,107 +4023,7 @@
return [ns_set array $set]
}
-ad_proc -deprecated ad_tcl_vars_to_ns_set {
- -set_id
- -put:boolean
- args
-} {
- Takes a 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 args A number 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 $args {
- upvar $varname var
- ns_set $command $set_id $varname $var
- }
- 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
-}
-
-ad_proc -deprecated oacs_util::vars_to_ns_set {
- {-ns_set:required}
- {-var_list:required}
-} {
- Does an ns_set put on each variable named in var_list
-
- DEPRECATED: modern ns_set idioms make this proc obsolete
-
- @see ns_set
-
- @param var_list list of variable names in the calling scope
- @param ns_set an ns_set id that already exists.
-} {
- foreach var $var_list {
- upvar $var one_var
- ns_set put $ns_set $var $one_var
- }
-}
-
ad_proc -private -deprecated proc_source_file_full_path {proc_name} {
This is a used function solely kept here for (unclear) backward