loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.453, 2020/04/16 00:28:04	version 1.454, 2020/09/08 19:38:59
Line 3036 sub update_user_data {	Line 3036 sub update_user_data {
$env{'form.ccdomain'},$env{'form.ccuname'});	$env{'form.ccdomain'},$env{'form.ccuname'});
}	}
}	}
$r->print('<br />'.&mt('Home server').': '.$uhome.' '.	$r->print('<br />'.&mt('Home Server').': '.$uhome.' '.
&Apache::lonnet::hostname($uhome));	&Apache::lonnet::hostname($uhome));
} elsif (($env{'form.login'} ne 'nochange') &&	} elsif (($env{'form.login'} ne 'nochange') &&
($env{'form.login'} ne '' )) {	($env{'form.login'} ne '' )) {
Line 3051 sub update_user_data {	Line 3051 sub update_user_data {
&Apache::lonnet::modifyuserauth(	&Apache::lonnet::modifyuserauth(
$env{'form.ccdomain'},$env{'form.ccuname'},	$env{'form.ccdomain'},$env{'form.ccuname'},
$amode,$genpwd));	$amode,$genpwd));
$r->print('<br />'.&mt('Home server').': '.&Apache::lonnet::homeserver	$r->print('<br />'.&mt('Home Server').': '.&Apache::lonnet::homeserver
($env{'form.ccuname'},$env{'form.ccdomain'}));	($env{'form.ccuname'},$env{'form.ccdomain'}));
} else {	} else {
# Okay, this is a non-fatal error.	# Okay, this is a non-fatal error.