loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.76, 2004/01/15 03:18:19	version 1.77, 2004/01/17 18:12:05
Line 760 ENDNEWUSERHEAD	Line 760 ENDNEWUSERHEAD
$ENV{'form.cmiddle'},$ENV{'form.clast'},$ENV{'form.cgen'},	$ENV{'form.cmiddle'},$ENV{'form.clast'},$ENV{'form.cgen'},
undef,$desiredhost	undef,$desiredhost
);	);
$r->print('Generating user: '.$result);	$r->print(&mt('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 />'&mt('Home server').': '.$home.' '.	$r->print('<br />'.&mt('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 '' )) {