loncom/interface/resetpw.pm - diff

Return to resetpw.pm CVS log

Up to [LON-CAPA] / loncom / interface

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'})) {