Index: openacs-4/packages/acs-subsite/www/user/password-update-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/user/Attic/password-update-2.tcl,v diff -u -r1.6 -r1.7 --- openacs-4/packages/acs-subsite/www/user/password-update-2.tcl 2 May 2002 20:22:49 -0000 1.6 +++ openacs-4/packages/acs-subsite/www/user/password-update-2.tcl 16 May 2002 01:36:04 -0000 1.7 @@ -27,16 +27,14 @@ ad_complain "Your passwords don't match! Presumably, you made a typo while entering one of them." } } -} -properties { } if {[empty_string_p $user_id]} { set user_id [ad_verify_and_get_user_id] - permission::require_permission -party_id $user_id -object_id $user_id -privilege "write" -} else { - permission::require_permission -object_id $user_id -privilege "admin" } +permission::require_permission -party_id $user_id -object_id $user_id -privilege "write" + if {[catch {ad_change_password $user_id $password_1} errmsg]} { ad_return_error "Wasn't able to change your password. Please contact the system administrator." }