Index: openacs-4/packages/xooauth/tcl/oauth-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xooauth/tcl/Attic/oauth-procs.tcl,v diff -u -N -r1.1.2.8 -r1.1.2.9 --- openacs-4/packages/xooauth/tcl/oauth-procs.tcl 29 Nov 2022 12:39:55 -0000 1.1.2.8 +++ openacs-4/packages/xooauth/tcl/oauth-procs.tcl 2 May 2023 18:14:54 -0000 1.1.2.9 @@ -400,7 +400,9 @@ # # - AuthenticatedRequest ad_instproc send {} {} { + AuthenticatedRequest ad_instproc send {} { + Send request + } { :initialize :send_request } @@ -528,16 +530,15 @@ return $parameter_pair_list } - AuthenticatedRequest ad_instproc decode {s} {} { - # We cannot use urldecode, as this translates plusses to spaces. - #return [ns_urldecode $s] + AuthenticatedRequest ad_instproc decode {s} { + URL decode + } { return [::xo::oauth::utility urldecode $s] } AuthenticatedRequest ad_instproc encode {s} { @see http://tools.ietf.org/html/rfc5849#section-3.6 } { - #return [::xowiki::utility urlencode $s] return [::xo::oauth::utility urlencode $s] }