version 1.50, 2021/11/30 15:55:37
|
version 1.51, 2021/11/30 16:08:44
|
Line 328 END
|
Line 328 END
|
my $authtype = &Apache::lonnet::queryauthenticate($uname,$udom); |
my $authtype = &Apache::lonnet::queryauthenticate($uname,$udom); |
if ($authtype =~ /^internal/) { |
if ($authtype =~ /^internal/) { |
my ($blocked,$blocktext) = |
my ($blocked,$blocktext) = |
&Apache::loncommon::blocking_status('passwd',$clentip,$uname,$udom); |
&Apache::loncommon::blocking_status('passwd',$clientip,$uname,$udom); |
if ($blocked) { |
if ($blocked) { |
$output = '<p class="LC_warning">'.$blocktext.'</p>' |
$output = '<p class="LC_warning">'.$blocktext.'</p>' |
.&display_actions($contact_email,$domdesc); |
.&display_actions($contact_email,$domdesc); |
Line 793 sub reset_passwd {
|
Line 793 sub reset_passwd {
|
delete($env{'form.udom'}); |
delete($env{'form.udom'}); |
} |
} |
} else { |
} 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).'<br /><br />'); |
$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).'<br /><br />'); |
if (keys(%formfields)) { |
if (keys(%formfields)) { |
if (($formfields{'username'}) && ($formfields{'email'})) { |
if (($formfields{'username'}) && ($formfields{'email'})) { |