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.9 -r1.10 --- openacs-4/packages/acs-subsite/www/user/password-update-2.tcl 16 May 2002 21:17:44 -0000 1.9 +++ openacs-4/packages/acs-subsite/www/user/password-update-2.tcl 28 Aug 2003 09:41:42 -0000 1.10 @@ -27,6 +27,11 @@ ad_complain "Your passwords don't match! Presumably, you made a typo while entering one of them." } } + new_password_old_password_different -requires { new_password_match } { + if { [string equal $password_old $password_1] } { + ad_complain "Your new password is identical to your old password. If you don't want to change your password, use your browser's back button to get out." + } + } } if {[empty_string_p $user_id]} { @@ -43,7 +48,7 @@ ad_return_error "Wasn't able to change your password. Please contact the system administrator." } -if {![ad_conn user_id]} { +if { ![ad_conn user_id] } { ad_user_login $user_id }