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 -N -r1.189.2.49 -r1.189.2.50 --- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl 1 Feb 2020 09:44:14 -0000 1.189.2.49 +++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl 13 May 2020 08:07:28 -0000 1.189.2.50 @@ -2347,7 +2347,7 @@ } -ad_proc -public ad_call_proc_if_exists { proc args } { +ad_proc -deprecated -public ad_call_proc_if_exists { proc args } { Calls a procedure with particular arguments, only if the procedure is defined. } { if { [info commands $proc] ne "" } { @@ -4781,17 +4781,6 @@ } } -if {[info commands ns_base64urlencode] eq ""} { - # - # Compatibility for AOLserver or NaviServer before 4.99.17 - # - proc ns_base64urlencode {data} { - return [string map {+ - / _ = {} \n {}} [ns_base64encode $data]] - } - proc ns_base64urldecode {data} { - return [ns_base64decode [string map {- + _ / } $data]] - } -} # Local variables: # mode: tcl