Index: openacs-4/packages/acs-tcl/tcl/acs-private-data-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/acs-private-data-procs.tcl,v diff -u -r1.9.2.2 -r1.9.2.3 --- openacs-4/packages/acs-tcl/tcl/acs-private-data-procs.tcl 7 Feb 2023 11:47:40 -0000 1.9.2.2 +++ openacs-4/packages/acs-tcl/tcl/acs-private-data-procs.tcl 3 May 2023 12:33:50 -0000 1.9.2.3 @@ -16,7 +16,7 @@ was in no way regulated. DEPRECATED: this privacy feature was only used in the context - of dotlrn, which also has an own set of apis fot a similar + of dotlrn, which also has an own set of apis for a similar purpose. @see dotlrn @@ -29,7 +29,7 @@ set the privacy control DEPRECATED: this privacy feature was only used in the context - of dotlrn, which also has an own set of apis fot a similar + of dotlrn, which also has an own set of apis for a similar purpose. @see dotlrn @@ -44,7 +44,7 @@ check if a user can access an object's private data DEPRECATED: this privacy feature was only used in the context - of dotlrn, which also has an own set of apis fot a similar + of dotlrn, which also has an own set of apis for a similar purpose. @see dotlrn @@ -65,7 +65,7 @@ grant permission to access private data DEPRECATED: this privacy feature was only used in the context - of dotlrn, which also has an own set of apis fot a similar + of dotlrn, which also has an own set of apis for a similar purpose. @see dotlrn Index: openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl,v diff -u -r1.153.2.56 -r1.153.2.57 --- openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl 28 Mar 2023 14:04:51 -0000 1.153.2.56 +++ openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl 3 May 2023 12:34:15 -0000 1.153.2.57 @@ -820,13 +820,13 @@ # # Provide context information for background writer. # - set requestor [expr {$::ad_conn(user_id) == 0 ? [ad_conn peeraddr] : $::ad_conn(user_id)}] + set requester [expr {$::ad_conn(user_id) == 0 ? [ad_conn peeraddr] : $::ad_conn(user_id)}] # # Leave for the time being the catch, since a fail of the # primitive function has no user-level consequences, and no # abort operations can happen in the called functions. # - catch {ns_conn clientdata [list $requestor [ns_conn url]]} + catch {ns_conn clientdata [list $requester [ns_conn url]]} } # Who's online