loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.146, 2007/03/03 01:33:21	version 1.148, 2007/03/12 17:06:59
Line 1064 ENDNEWUSERHEAD	Line 1064 ENDNEWUSERHEAD
if (lc($desiredhost) eq 'default') {	if (lc($desiredhost) eq 'default') {
$desiredhost = undef;	$desiredhost = undef;
} else {	} else {
my %home_servers = &Apache::loncommon::get_library_servers	my %home_servers =
($env{'form.ccdomain'});	&Apache::lonnet::get_servers($env{'form.ccdomain'},'library');
if (! exists($home_servers{$desiredhost})) {	if (! exists($home_servers{$desiredhost})) {
$r->print($error.&mt('Invalid home server specified'));	$r->print($error.&mt('Invalid home server specified'));
return;	return;
Line 1082 ENDNEWUSERHEAD	Line 1082 ENDNEWUSERHEAD
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 />'.&mt('Home server').': '.$home.' '.	$r->print('<br />'.&mt('Home server').': '.$home.' '.
$Apache::lonnet::libserv{$home});	&Apache::lonnet::hostname($home));
} elsif (($env{'form.login'} ne 'nochange') &&	} elsif (($env{'form.login'} ne 'nochange') &&
($env{'form.login'} ne '' )) {	($env{'form.login'} ne '' )) {
# Modify user privileges	# Modify user privileges