Index: openacs-4/packages/acs-admin/www/users/password-reset.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/password-reset.tcl,v diff -u -N -r1.1 -r1.1.2.1 --- openacs-4/packages/acs-admin/www/users/password-reset.tcl 28 Oct 2003 14:30:05 -0000 1.1 +++ openacs-4/packages/acs-admin/www/users/password-reset.tcl 12 Dec 2003 16:11:49 -0000 1.1.2.1 @@ -8,6 +8,7 @@ acs_user::get -user_id $user_id -array user_info auth::password::reset \ + -admin \ -authority_id $user_info(authority_id) \ -username $user_info(username) Index: openacs-4/packages/acs-authentication/tcl/password-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/password-procs.tcl,v diff -u -N -r1.10 -r1.10.2.1 --- openacs-4/packages/acs-authentication/tcl/password-procs.tcl 28 Oct 2003 14:29:12 -0000 1.10 +++ openacs-4/packages/acs-authentication/tcl/password-procs.tcl 12 Dec 2003 16:11:32 -0000 1.10.2.1 @@ -406,15 +406,20 @@ } ad_proc -public auth::password::reset { + {-admin:boolean} {-authority_id:required} {-username:required} } { Reset the user's password, which means setting it to a new randomly generated password and inform the user of that new password. - @param user_id The ID of the user whose password you want to reset. + @param admin Specify this flag if this call represents an admin changing a user's password. + @param authority_id The authority of the user + + @param username The username of the user + @return An array list with the following entries: