Index: openacs-4/packages/acs-tcl/tcl/security-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/security-procs.tcl,v diff -u -N -r1.126.2.23 -r1.126.2.24 --- openacs-4/packages/acs-tcl/tcl/security-procs.tcl 28 Nov 2019 11:06:31 -0000 1.126.2.23 +++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl 28 Nov 2019 12:10:03 -0000 1.126.2.24 @@ -1837,6 +1837,15 @@ util_memoize_seed [list sec_lookup_property $session_id $module $name] [list $value $secure] } + +# +# Provide a global variable for devopers to activate/deactivate +# client_property_password in case a site has good reasons not to +# using the client property (e.g. site specific code). This is meant +# to be transitional code. +# +set ::acs::pass_password_as_query_variable 0 + ad_proc -public security::set_client_property_password {password} { Convenience function for remembering user password as client property @@ -1846,6 +1855,7 @@ } { ad_set_client_property -persistent f acs-admin user-password $password } + ad_proc -public security::get_client_property_password {password} { Convenience function for retrieving user password from client property