Index: openacs-4/packages/acs-subsite/www/register/recover-password.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/register/recover-password.adp,v diff -u -r1.2 -r1.3 --- openacs-4/packages/acs-subsite/www/register/recover-password.adp 3 Sep 2003 09:51:58 -0000 1.2 +++ openacs-4/packages/acs-subsite/www/register/recover-password.adp 3 Sep 2003 14:06:01 -0000 1.3 @@ -3,6 +3,8 @@ @context@ @focus@ + Enter your username to begin password recovery. + @recover_info.password_message@ Index: openacs-4/packages/acs-subsite/www/register/recover-password.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/register/recover-password.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/acs-subsite/www/register/recover-password.tcl 3 Sep 2003 09:51:58 -0000 1.2 +++ openacs-4/packages/acs-subsite/www/register/recover-password.tcl 3 Sep 2003 14:06:01 -0000 1.3 @@ -17,20 +17,19 @@ set authority_options [auth::authority::get_authority_options] if { [llength $authority_options] > 1 } { - ad_form -name recover_password -form { + ad_form -name recover_password -edit_buttons [list [list [_ acs-subsite.Recover_Password_Button] ok]] -form { {authority_id:integer(select) - {label "Authority"} + {label "[_ acs-kernel.authentication_authority]"} {options $authority_options} {value $authority_id} } } } else { - ad_form -name recover_password -form { + ad_form -name recover_password -edit_buttons [list [list [_ acs-subsite.Recover_Password_Button] ok]] -form { {authority_id:integer(hidden) {value $authority_id} } } - } ad_form -extend -name recover_password -form { @@ -45,6 +44,8 @@ set authority_id "" } + + array set recover_info [auth::password::recover_password \ -authority_id $authority_id \ -username $username] @@ -72,4 +73,4 @@ -username $username] } -# BEWARE: the template page is a pretty ugly construction! I'm gonna have someone look at it +