loncom/interface/domainprefs.pm - diff

Return to domainprefs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.360, 2019/05/10 14:24:53	version 1.361, 2019/05/14 13:39:24
Line 10797 sub check_configuser {	Line 10797 sub check_configuser {
my ($configuserok,%currroles);	my ($configuserok,%currroles);
if ($uhome eq 'no_host') {	if ($uhome eq 'no_host') {
srand( time() ^ ($$ + ($$ << 15)) ); # Seed rand.	srand( time() ^ ($$ + ($$ << 15)) ); # Seed rand.
my $configpass = &LONCAPA::Enrollment::create_password();	my $configpass = &LONCAPA::Enrollment::create_password($dom);
$configuserok =	$configuserok =
&Apache::lonnet::modifyuser($dom,$confname,'','internal',	&Apache::lonnet::modifyuser($dom,$confname,'','internal',
$configpass,'','','','','',undef,$servadm);	$configpass,'','','','','',undef,$servadm);