loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.69, 2003/10/13 21:41:19	version 1.70.2.1, 2004/01/19 23:09:07
Line 658 ENDTHREEHEAD	Line 658 ENDTHREEHEAD
if ($ENV{'form.makeuser'}) {	if ($ENV{'form.makeuser'}) {
# Create a new user	# Create a new user
$r->print(<<ENDNEWUSERHEAD);	$r->print(<<ENDNEWUSERHEAD);
<h3>Creating user "$ENV{'form.ccuname'}" in domain "$ENV{'form.ccdomain'}"</h2>	<h3>Creating user "$ENV{'form.ccuname'}" in domain "$ENV{'form.ccdomain'}"</h3>
ENDNEWUSERHEAD	ENDNEWUSERHEAD
# Check for the authentication mode and password	# Check for the authentication mode and password
if (! $amode \|\| ! $genpwd) {	if (! $amode \|\| ! $genpwd) {
Line 687 ENDNEWUSERHEAD	Line 687 ENDNEWUSERHEAD
$r->print('Generating user: '.$result);	$r->print('Generating user: '.$result);
my $home = &Apache::lonnet::homeserver($ENV{'form.ccuname'},	my $home = &Apache::lonnet::homeserver($ENV{'form.ccuname'},
$ENV{'form.ccdomain'});	$ENV{'form.ccdomain'});
$r->print('<br>Home server: '.$home.' '.	$r->print('<br />Home server: '.$home.' '.
$Apache::lonnet::libserv{$home});	$Apache::lonnet::libserv{$home});
} elsif (($ENV{'form.login'} ne 'nochange') &&	} elsif (($ENV{'form.login'} ne 'nochange') &&
($ENV{'form.login'} ne '' )) {	($ENV{'form.login'} ne '' )) {
Line 913 END	Line 913 END
}	}
}	}
} # End of foreach (keys(%ENV))	} # End of foreach (keys(%ENV))
	# Flush the course logs so reverse user roles immediately updated
	&Apache::lonnet::flushcourselogs();
$r->print('</body></html>');	$r->print('</body></html>');
}	}