version 1.45, 2002/11/25 18:44:33
|
version 1.46, 2002/12/30 14:10:58
|
Line 102 sub print_username_entry_form {
|
Line 102 sub print_username_entry_form {
|
my $domform = &Apache::loncommon::select_dom_form($defdom,'ccdomain'); |
my $domform = &Apache::loncommon::select_dom_form($defdom,'ccdomain'); |
my $bodytag =&Apache::loncommon::bodytag( |
my $bodytag =&Apache::loncommon::bodytag( |
'Create Users, Change User Privileges'); |
'Create Users, Change User Privileges'); |
|
my $selscript=&Apache::loncommon::studentbrowser_javascript(); |
|
my $sellink=&Apache::loncommon::selectstudent_link |
|
('crtuser','ccuname','ccdomain'); |
$r->print(<<"ENDDOCUMENT"); |
$r->print(<<"ENDDOCUMENT"); |
<html> |
<html> |
<head> |
<head> |
<title>The LearningOnline Network with CAPA</title> |
<title>The LearningOnline Network with CAPA</title> |
|
$selscript |
</head> |
</head> |
$bodytag |
$bodytag |
<form action="/adm/createuser" method="post"> |
<form action="/adm/createuser" method="post" name="crtuser"> |
<input type="hidden" name="phase" value="get_user_info"> |
<input type="hidden" name="phase" value="get_user_info"> |
<p> |
<p> |
<table> |
<table> |
<tr><td>Username:</td><td><input type="text" size="15" name="ccuname"> |
<tr><td>Username:</td><td><input type="text" size="15" name="ccuname"> |
</td></tr><tr><td> |
</td><td rowspan="2">$sellink</td></tr><tr><td> |
Domain:</td><td>$domform</td></tr> |
Domain:</td><td>$domform</td></tr> |
</table> |
</table> |
</p> |
</p> |