loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.32, 2002/04/22 18:04:19	version 1.33, 2002/04/23 21:05:45
Line 85 BEGIN {	Line 85 BEGIN {
sub phase_one {	sub phase_one {
my $r=shift;	my $r=shift;
my $defdom=$ENV{'user.domain'};	my $defdom=$ENV{'user.domain'};
$r->print(<<ENDDOCUMENT);	my @domains = &Apache::loncommon::get_domains();
	my $domform = &Apache::loncommon::select_dom_form($defdom,'ccdomain');
	$r->print(<<"ENDDOCUMENT");
<html>	<html>
<head>	<head>
<title>The LearningOnline Network with CAPA</title>	<title>The LearningOnline Network with CAPA</title>
Line 94 sub phase_one {	Line 96 sub phase_one {
<h1>Create User, Change User Privileges</h1>	<h1>Create User, Change User Privileges</h1>
<form action=/adm/createuser method=post>	<form action=/adm/createuser method=post>
<input type=hidden name=phase value=two>	<input type=hidden name=phase value=two>
	<p>
Username: <input type=text size=15 name=ccuname><br>	Username: <input type=text size=15 name=ccuname><br>
Domain: <input type=text size=15 name=ccdomain value=$defdom><p>	Domain: $domform
	</p>
<input type=submit value="Continue">	<input type=submit value="Continue">
</form>	</form>
</body>	</body>