--- loncom/interface/resetpw.pm 2021/11/30 15:55:37 1.50 +++ loncom/interface/resetpw.pm 2025/02/15 03:43:36 1.54 @@ -1,7 +1,7 @@ # The LearningOnline Network # Allow access to password changing via a token sent to user's e-mail. # -# $Id: resetpw.pm,v 1.50 2021/11/30 15:55:37 raeburn Exp $ +# $Id: resetpw.pm,v 1.54 2025/02/15 03:43:36 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -289,12 +289,13 @@ END $js.= "\n".''."\n"; } my $header = &Apache::loncommon::start_page('Reset password',$js,$args). - '

'.&mt('Reset forgotten LON-CAPA password').'

'; + ''; my $output; if ($token) { - $r->print($header); + $r->print($header.'
'); &reset_passwd($r,$token,$contact_name,$contact_email,$clientip,\%passwdconf); - $r->print(&Apache::loncommon::end_page()); + $r->print('
'.&Apache::loncommon::end_page()); return OK; } elsif ($udom) { if (!$domdesc) { @@ -328,7 +329,7 @@ END my $authtype = &Apache::lonnet::queryauthenticate($uname,$udom); if ($authtype =~ /^internal/) { my ($blocked,$blocktext) = - &Apache::loncommon::blocking_status('passwd',$clentip,$uname,$udom); + &Apache::loncommon::blocking_status('passwd',$clientip,$uname,$udom); if ($blocked) { $output = '

'.$blocktext.'

' .&display_actions($contact_email,$domdesc); @@ -418,7 +419,7 @@ END } else { $output = &get_uname($server,$defdom,\%passwdconf); } - $r->print($header.$output); + $r->print($header.'
'.$output.'
'); $r->print(&Apache::loncommon::end_page()); return OK; } @@ -442,22 +443,22 @@ sub get_uname { $msg .= $contents; } } - $msg .= '

'.&mt('Three conditions must be met:') + $msg .= '

'.&mt('Three conditions must be met:').'

' .'

'; + .'
  • '.&mt('Your LON-CAPA account must be of a type for which LON-CAPA can reset a password.').'
  • ' + .''; my $onchange = 'javascript:verifyDomain(this,this.form);'; $msg .= '
    '. &Apache::lonhtmlcommon::start_pick_box(). - &Apache::lonhtmlcommon::row_title($lt{'udom'}). - &Apache::loncommon::select_dom_form($defdom,'udom',undef,undef,$onchange). + &Apache::lonhtmlcommon::row_title(''). + &Apache::loncommon::select_dom_form($defdom,'udom',undef,undef,$onchange,'','','','udom'). &Apache::lonhtmlcommon::row_closure(1). - &Apache::lonhtmlcommon::row_title($lt{'unam'}). - ''. + &Apache::lonhtmlcommon::row_title(''). + ''. &Apache::lonhtmlcommon::row_closure(1). - &Apache::lonhtmlcommon::row_title($lt{'uemail'}). - ''. + &Apache::lonhtmlcommon::row_title(''). + ''. &Apache::lonhtmlcommon::row_closure(1); unless ($passwdconf->{'captcha'} eq 'notused') { my ($captcha_form,$captcha_error,$captcha,$recaptcha_version) = @@ -793,7 +794,6 @@ sub reset_passwd { delete($env{'form.udom'}); } } else { -#FIXME $r->print(&mt('The token included in an e-mail sent to you [_1] has been verified, so you may now proceed to reset the password for your LON-CAPA account.',$reqtime).'

    '); if (keys(%formfields)) { if (($formfields{'username'}) && ($formfields{'email'})) {