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.7 -r1.29.2.8 --- openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl 24 Jul 2020 12:19:55 -0000 1.29.2.7 +++ openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl 28 Jul 2020 14:42:05 -0000 1.29.2.8 @@ -3389,16 +3389,8 @@ return [util::ns_set_to_tcl_string $set_id] } -ad_proc -public util::ns_set_to_tcl_string {set_id} { - returns a plain text version of the passed ns_set id -} { - set result "" - for {set i 0} {$i<[ns_set size $set_id]} {incr i} { - append result "[ns_set key $set_id $i] : [ns_set value $set_id $i]\n" - } - return $result -} + ad_proc -deprecated get_referrer args { @return referrer from the request headers. @param relative return the refer without protocol and host