version 1.76, 2004/01/15 03:18:19
|
version 1.78, 2004/02/01 20:42:01
|
Line 263 ENDFORMINFO
|
Line 263 ENDFORMINFO
|
'hs' => "Home Server", |
'hs' => "Home Server", |
'lg' => "Login Data" |
'lg' => "Login Data" |
); |
); |
|
my $genhelp=&Apache::loncommon::help_open_topic('Generation'); |
$r->print(<<ENDNEWUSER); |
$r->print(<<ENDNEWUSER); |
$dochead |
$dochead |
<h1>$lt{'cnu'}</h1> |
<h1>$lt{'cnu'}</h1> |
Line 281 $loginscript
|
Line 282 $loginscript
|
<td><input type='text' name='cmiddle' size='15' /></td></tr> |
<td><input type='text' name='cmiddle' size='15' /></td></tr> |
<tr><td>$lt{'ln'} </td> |
<tr><td>$lt{'ln'} </td> |
<td><input type='text' name='clast' size='15' /></td></tr> |
<td><input type='text' name='clast' size='15' /></td></tr> |
<tr><td>$lt{'gen'} </td> |
<tr><td>$lt{'gen'}$genhelp</td> |
<td><input type='text' name='cgen' size='5' /></td></tr> |
<td><input type='text' name='cgen' size='5' /></td></tr> |
</table> |
</table> |
$lt{'idsn'} <input type='text' name='cstid' size='15' /></p> |
$lt{'idsn'} <input type='text' name='cstid' size='15' /></p> |
Line 760 ENDNEWUSERHEAD
|
Line 761 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 '' )) { |