loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

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>