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 '' )) { |