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 -r1.126.2.22 -r1.126.2.23
--- openacs-4/packages/acs-tcl/tcl/security-procs.tcl	16 Nov 2019 15:45:55 -0000	1.126.2.22
+++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl	28 Nov 2019 11:06:31 -0000	1.126.2.23
@@ -1837,8 +1837,25 @@
     util_memoize_seed [list sec_lookup_property $session_id $module $name] [list $value $secure]
 }
 
+ad_proc -public security::set_client_property_password {password} {
+    
+    Convenience function for remembering user password as client property
+    rather than passing it as query parameter.
 
+    @see security::get_client_property_password   
+} {
+    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
 
+    @see security::set_client_property_password
+    
+} {
+    return [ad_get_client_property acs-admin user-password]
+}
+
 #####
 #
 # security namespace public procs