Return to createaccount.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/createaccount.pm between versions 1.20 and 1.47

version 1.20, 2008/07/14 08:26:57	version 1.47, 2011/09/29 13:34:32
Line 52 sub handler {	Line 52 sub handler {
if ($r->header_only) {	if ($r->header_only) {
return OK;	return OK;
}	}

my $domain;	my $domain;

my $sso_username = $r->subprocess_env->get('REDIRECT_SSOUserUnknown');	my $sso_username = $r->subprocess_env->get('REDIRECT_SSOUserUnknown');
my $sso_domain = $r->subprocess_env->get('REDIRECT_SSOUserDomain');	my $sso_domain = $r->subprocess_env->get('REDIRECT_SSOUserDomain');

	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['token','courseid']);
	&Apache::lonacc::get_posted_cgi($r);
	&Apache::lonlocal::get_language_handle($r);

if ($sso_username ne '' && $sso_domain ne '') {	if ($sso_username ne '' && $sso_domain ne '') {
$domain = $sso_domain;	$domain = $sso_domain;
} else {	} else {
$domain = &Apache::lonnet::default_login_domain();	$domain = &Apache::lonnet::default_login_domain();
	if (defined($env{'form.courseid'})) {
	if (&validate_course($env{'form.courseid'})) {
	if ($env{'form.courseid'} =~ /^($match_domain)_($match_courseid)$/) {
	$domain = $1;
	}
	}
	}
}	}
my $domdesc = &Apache::lonnet::domain($domain,'description');	my $domdesc = &Apache::lonnet::domain($domain,'description');
my $contact_name = &mt('LON-CAPA helpdesk');	my $contact_name = &mt('LON-CAPA helpdesk');
Line 74 sub handler {	Line 85 sub handler {
my $include = $r->dir_config('lonIncludes');	my $include = $r->dir_config('lonIncludes');
my $start_page;	my $start_page;

&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['token','courseid']);
&Apache::lonacc::get_posted_cgi($r);
&Apache::lonlocal::get_language_handle($r);

my $handle = &Apache::lonnet::check_for_valid_session($r);	my $handle = &Apache::lonnet::check_for_valid_session($r);
if ($handle ne '') {	if (($handle ne '') && ($handle !~ /^publicuser_\d+$/)) {
$start_page =	$start_page =
&Apache::loncommon::start_page('Already logged in');	&Apache::loncommon::start_page('Already logged in');
my $end_page =	my $end_page =
&Apache::loncommon::end_page();	&Apache::loncommon::end_page();
$r->print($start_page."\n".'<h2>'.&mt('You are already logged in').'</h2>'.	$r->print($start_page."\n".'<h2>'.&mt('You are already logged in').'</h2>'.
'<p>'.&mt('Please either [_1]continue the current session[_2] or [_3]logout[_4].','<a href="/adm/roles">','</a>','<a href="/adm/logout">','</a>').	'<p>'.&mt('Please either [_1]continue the current session[_2] or [_3]log out[_4].','<a href="/adm/roles">','</a>','<a href="/adm/logout">','</a>').
'</p><p><a href="/adm/loginproblems.html">'.&mt('Login problems?').'</a></p>'.$end_page);	'</p><p><a href="/adm/loginproblems.html">'.&mt('Login problems?').'</a></p>'.$end_page);
return OK;	return OK;
}	}

my $courseid;	my ($js,$courseid,$title);
if (defined($env{'form.courseid'})) {	if (defined($env{'form.courseid'})) {
$courseid = &validate_course($env{'form.courseid'});	$courseid = &validate_course($env{'form.courseid'});
}	}
	if ($courseid ne '') {
	$js = &catreturn_js();
	$title = 'Self-enroll in a LON-CAPA course';
	} else {
	$title = 'Create a user account in LON-CAPA';
	}
if ($env{'form.phase'} eq 'selfenroll_login') {	if ($env{'form.phase'} eq 'selfenroll_login') {
	$title = 'Self-enroll in a LON-CAPA course';
if ($env{'form.udom'} ne '') {	if ($env{'form.udom'} ne '') {
$domain = $env{'form.udom'};	$domain = $env{'form.udom'};
}	}

	my %domconfig =
	&Apache::lonnet::get_dom('configuration',['usercreation'],$domain);
	my ($cancreate,$statustocreate) =
	&get_creation_controls($domain,$domconfig{'usercreation'});

my ($result,$output) =	my ($result,$output) =
&username_validation($r,$env{'form.uname'},$domain,$domdesc,	&username_validation($r,$env{'form.uname'},$domain,$domdesc,

$contact_name,$contact_email,$courseid,	$contact_name,$contact_email,$courseid,
$lonhost);	$lonhost,$statustocreate);
if ($result eq 'existingaccount') {	if ($result eq 'existingaccount') {
$r->print($output);	$r->print($output);
$r->print(&Apache::loncommon::end_page());	&print_footer($r);
return OK;	return OK;
} else {	} else {
$start_page =	$start_page =
&Apache::loncommon::start_page('Self-enroll in a LON-CAPA course','',	&Apache::loncommon::start_page($title,$js);
{'no_inline_link' => 1,});	&print_header($r,$start_page,$courseid);
&print_header($r,$start_page);	$r->print($output);
$r->print($output.&Apache::loncommon::end_page());	&print_footer($r);
return OK;	return OK;
}	}
}	}

$start_page =	$start_page =
&Apache::loncommon::start_page('Create a user account in LON-CAPA','',	&Apache::loncommon::start_page($title,$js);
{'no_inline_link' => 1,});
my @cancreate;
my %domconfig = &Apache::lonnet::get_dom('configuration',['usercreation'],$domain);
if (ref($domconfig{'usercreation'}) eq 'HASH') {
if (ref($domconfig{'usercreation'}{'cancreate'}) eq 'HASH') {
if (ref($domconfig{'usercreation'}{'cancreate'}{'selfcreate'}) eq 'ARRAY') {
@cancreate = @{$domconfig{'usercreation'}{'cancreate'}{'selfcreate'}};
} elsif (($domconfig{'usercreation'}{'cancreate'}{'selfcreate'} ne 'none') &&
($domconfig{'usercreation'}{'cancreate'}{'selfcreate'} ne '')) {
@cancreate = ($domconfig{'usercreation'}{'cancreate'}{'selfcreate'});
}
}
}

if (@cancreate == 0) {	my %domconfig =
&print_header($r,$start_page);	&Apache::lonnet::get_dom('configuration',['usercreation'],$domain);
	my ($cancreate,$statustocreate) = &get_creation_controls($domain,$domconfig{'usercreation'});
	if (@{$cancreate} == 0) {
	&print_header($r,$start_page,$courseid);
my $output = '<h3>'.&mt('Account creation unavailable').'</h3>'.	my $output = '<h3>'.&mt('Account creation unavailable').'</h3>'.
'<span class="LC_warning">'.	'<span class="LC_warning">'.
&mt('Creation of a new user account using an e-mail address or an institutional log-in ID as username is not permitted at this institution ([_1]).',$domdesc).'</span><br /><br />';	&mt('Creation of a new user account using an e-mail address or an institutional log-in ID as username is not permitted at this institution ([_1]).',$domdesc).'</span><br /><br />';
$r->print($output);	$r->print($output);
$r->print(&Apache::loncommon::end_page());	&print_footer($r);
return OK;	return OK;
}	}

if ($sso_username ne '') {	if ($sso_username ne '') {
&print_header($r,$start_page);	&print_header($r,$start_page,$courseid);
my ($msg,$sso_logout);	my ($msg,$sso_logout);
$sso_logout = &sso_logout_frag($r,$domain);	$sso_logout = &sso_logout_frag($r,$domain);
if (grep(/^sso$/,@cancreate)) {	if (grep(/^sso$/,@{$cancreate})) {
$msg = '<h3>'.&mt('Account creation').'</h3>'.	$msg = '<h3>'.&mt('Account creation').'</h3>'.
&mt("Although your username and password were authenticated by your institution's Single Sign On system, you do not currently have a LON-CAPA account at this institution.").'<br />';	&mt("Although your username and password were authenticated by your institution's Single Sign On system, you do not currently have a LON-CAPA account at this institution.").'<br />';

$msg .= &username_check($sso_username,$domain,$domdesc,$courseid,	$msg .= &username_check($sso_username,$domain,$domdesc,$courseid,
$lonhost,$contact_email,$contact_name,$sso_logout);	$lonhost,$contact_email,$contact_name,
	$sso_logout,$statustocreate);
} else {	} else {
$msg = '<h3>'.&mt('Account creation unavailable').'</h3>'.	$msg = '<h3>'.&mt('Account creation unavailable').'</h3>'.
'<span class="LC_warning">'.&mt("Although your username and password were authenticated by your institution's Single Sign On system, you do not currently have a LON-CAPA account at this institution, and you are not permitted to create one.").'</span><br /><br />'.&mt('Please contact the [_1] ([_2]) for assistance.',$contact_name,$contact_email).'<hr />'.	'<span class="LC_warning">'.&mt("Although your username and password were authenticated by your institution's Single Sign On system, you do not currently have a LON-CAPA account at this institution, and you are not permitted to create one.").'</span><br /><br />'.&mt('Please contact the [_1] ([_2]) for assistance.',$contact_name,$contact_email).'<hr />'.
$sso_logout;	$sso_logout;
}	}
$r->print($msg);	$r->print($msg);
$r->print(&Apache::loncommon::end_page());	&print_footer($r);
return OK;	return OK;
}	}

Line 174 sub handler {	Line 183 sub handler {
return OK;	return OK;
} else {	} else {
$r->print($output);	$r->print($output);
$r->print(&Apache::loncommon::end_page());	&print_footer($r);
return OK;	return OK;
}	}
} else {	} else {
&print_header($r,$start_page);	&print_header($r,$start_page,$courseid);
$r->print($output);	$r->print($output);
$r->print(&Apache::loncommon::end_page());	&print_footer($r);
return OK;	return OK;
}	}
}	}
Line 194 sub handler {	Line 203 sub handler {
return OK;	return OK;
}	}
}	}
&print_header($r,$start_page);	&print_header($r,$start_page,$courseid);
$r->print($output);	$r->print($output);
$r->print(&Apache::loncommon::end_page());	&print_footer($r);
return OK;	return OK;
} elsif ($env{'form.phase'} eq 'username_validation') {	} elsif ($env{'form.phase'} eq 'username_validation') {
(my $result,$output) =	(my $result,$output) =
&username_validation($r,$env{'form.uname'},$domain,$domdesc,	&username_validation($r,$env{'form.uname'},$domain,$domdesc,
$contact_name,$contact_email,$courseid,	$contact_name,$contact_email,$courseid,
$lonhost);	$lonhost,$statustocreate);
if ($result eq 'existingaccount') {	if ($result eq 'existingaccount') {
$r->print($output);	$r->print($output);
$r->print(&Apache::loncommon::end_page());	&print_footer($r);
return OK;	return OK;
} else {	} else {
&print_header($r,$start_page);	&print_header($r,$start_page,$courseid);
}	}
} elsif ($env{'form.create_with_email'}) {	} elsif ($env{'form.create_with_email'}) {
&print_header($r,$start_page);	&print_header($r,$start_page,$courseid);
$output = &process_email_request($env{'form.useremail'},$domain,$domdesc,	$output = &process_email_request($env{'form.useremail'},$domain,$domdesc,
$contact_name,$contact_email,\@cancreate,	$contact_name,$contact_email,$cancreate,
$lonhost,$domconfig{'usercreation'},	$lonhost,$domconfig{'usercreation'},
$courseid);	$courseid);
} elsif (!$token) {	} elsif (!$token) {
&print_header($r,$start_page);	&print_header($r,$start_page,$courseid);
my $now=time;	my $now=time;
if (grep(/^login$/,@cancreate)) {	if (grep(/^login$/,@{$cancreate})) {
my $jsh=Apache::File->new($include."/londes.js");	my $jsh=Apache::File->new($include."/londes.js");
$r->print(<$jsh>);	$r->print(<$jsh>);
$r->print(&javascript_setforms($now));	$r->print(&javascript_setforms($now));
}	}
if (grep(/^email$/,@cancreate)) {	if (grep(/^email$/,@{$cancreate})) {
$r->print(&javascript_validmail());	$r->print(&javascript_validmail());
}	}
$output = &print_username_form($domain,$domdesc,\@cancreate,$now,$lonhost,	$output = &print_username_form($domain,$domdesc,$cancreate,$now,$lonhost,
$courseid);	$courseid);
}	}
$r->print($output);	$r->print($output);
$r->print(&Apache::loncommon::end_page());	&print_footer($r);
return OK;	return OK;
}	}

sub print_header {	sub print_header {
my ($r,$start_page) = @_;	my ($r,$start_page,$courseid) = @_;
$r->print($start_page);	$r->print($start_page);
&Apache::lonhtmlcommon::clear_breadcrumbs();	&Apache::lonhtmlcommon::clear_breadcrumbs();
	if ($courseid ne '') {
	my %coursehash = &Apache::lonnet::coursedescription($courseid);
	&selfenroll_crumbs($r,$courseid,$coursehash{'description'});
	}
&Apache::lonhtmlcommon::add_breadcrumb	&Apache::lonhtmlcommon::add_breadcrumb
({href=>"/adm/createuser",	({href=>"/adm/createuser",
text=>"New username"});	text=>"New username"});
Line 246 sub print_header {	Line 259 sub print_header {
return;	return;
}	}

	sub print_footer {
	my ($r) = @_;
	if ($env{'form.courseid'} ne '') {
	$r->print('<form name="backupcrumbs" method="post" action="">'.
	&Apache::lonhtmlcommon::echo_form_input(['backto','logtoken',
	'token','serverid','uname','upass','phase','create_with_email',
	'code','useremail','crypt','cfirstname','clastname',
	'cmiddlename','cgeneration','cpermanentemail','cid']).
	'</form>');
	}
	$r->print(&Apache::loncommon::end_page());
	}

	sub selfenroll_crumbs {
	my ($r,$courseid,$desc) = @_;
	&Apache::lonhtmlcommon::add_breadcrumb
	({href=>"javascript:ToCatalog('backupcrumbs','')",
	text=>"Course/Community Catalog"});
	if ($env{'form.coursenum'} ne '') {
	&Apache::lonhtmlcommon::add_breadcrumb
	({href=>"javascript:ToCatalog('backupcrumbs','details')",
	text=>"Course details"});
	}
	my $last_crumb;
	if ($desc ne '') {
	$last_crumb = &mt('Self-enroll in [_1]',"<span class='LC_cusr_emph'>$desc</span>");
	} else {
	$last_crumb = &mt('Self-enroll');
	}
	&Apache::lonhtmlcommon::add_breadcrumb
	({href=>"javascript:ToSelfenroll('backupcrumbs')",
	text=>$last_crumb,
	no_mt=>"1"});
	return;
	}

sub validate_course {	sub validate_course {
my ($courseid) = @_;	my ($courseid) = @_;
my ($cdom,$cnum) = ($courseid =~ /^($match_domain)_($match_courseid)$/);	my ($cdom,$cnum) = ($courseid =~ /^($match_domain)_($match_courseid)$/);
Line 260 sub validate_course {	Line 309 sub validate_course {
sub javascript_setforms {	sub javascript_setforms {
my ($now) = @_;	my ($now) = @_;
my $js = <<ENDSCRIPT;	my $js = <<ENDSCRIPT;
<script language="JavaScript">	<script type="text/javascript" language="JavaScript">
function send() {	function send() {
this.document.server.elements.uname.value = this.document.client.elements.uname.value;	this.document.server.elements.uname.value = this.document.client.elements.uname.value;
	this.document.server.elements.udom.value = this.document.client.elements.udom.value;
uextkey=this.document.client.elements.uextkey.value;	uextkey=this.document.client.elements.uextkey.value;
lextkey=this.document.client.elements.lextkey.value;	lextkey=this.document.client.elements.lextkey.value;
initkeys();	initkeys();
Line 293 sub javascript_checkpass {	Line 343 sub javascript_checkpass {
var upasscheck = this.document.client.elements.upasscheck$now.value;	var upasscheck = this.document.client.elements.upasscheck$now.value;
if (upass == '') {	if (upass == '') {
alert("$nopass");	alert("$nopass");
return;	return false;
}	}
if (upass == upasscheck) {	if (upass == upasscheck) {
this.document.client.elements.upasscheck$now.value='';	this.document.client.elements.upasscheck$now.value='';
send();	send();
return;	return false;
} else {	} else {
alert("$mismatchpass");	alert("$mismatchpass");
return;	return false;
}	}
}	}
</script>	</script>
ENDSCRIPT	ENDSCRIPT
Line 335 sub print_username_form {	Line 385 sub print_username_form {
my %lt = &Apache::lonlocal::texthash(	my %lt = &Apache::lonlocal::texthash(
unam => 'username',	unam => 'username',
udom => 'domain',	udom => 'domain',
uemail => 'Email address in LON-CAPA',	uemail => 'E-mail address in LON-CAPA',
proc => 'Proceed');	proc => 'Proceed');
my $output;	my $output;
if (ref($cancreate) eq 'ARRAY') {	if (ref($cancreate) eq 'ARRAY') {
Line 346 sub print_username_form {	Line 396 sub print_username_form {
my $submit_text = &mt('Create LON-CAPA account');	my $submit_text = &mt('Create LON-CAPA account');
$output .= &mt('If you already have a log-in ID at this institution,[_1] you may be able to use it for LON-CAPA.','<br />').'<br /><br />'.&mt('Type in your log-in ID and password to find out.').'<br /><br />';	$output .= &mt('If you already have a log-in ID at this institution,[_1] you may be able to use it for LON-CAPA.','<br />').'<br /><br />'.&mt('Type in your log-in ID and password to find out.').'<br /><br />';
$output .= &login_box($now,$lonhost,$courseid,$submit_text,	$output .= &login_box($now,$lonhost,$courseid,$submit_text,
$domain,'createaccount');	$domain,'createaccount').'</div>';
}	}
}	}
if (grep(/^email$/,@{$cancreate})) {	if (grep(/^email$/,@{$cancreate})) {
$output .= '<div class="LC_left_float"><h3>'.&mt('Create account with an e-mail address as your username').'</h3>';	$output .= '<div class="LC_left_float"><h3>'.&mt('Create account with an e-mail address as your username').'</h3>';
if (grep(/^login$/,@{$cancreate})) {
$output .= &mt('Provide your e-mail address to request a LON-CAPA account,[_1] if you do not have a log-in ID at your institution.','<br />').'<br /><br />';
} else {
$output .= '<br />';
}
my $emailform = '<input type="text" name="useremail" size="25" value="" />';
my $captchaform = &create_captcha();	my $captchaform = &create_captcha();
my $submit_text = &mt('Request LON-CAPA account');	if ($captchaform) {
$output .= '<form name="createaccount" method="post" onSubmit="return validate_email()" action="/adm/createaccount">'.	my $submit_text = &mt('Request LON-CAPA account');
&Apache::lonhtmlcommon::start_pick_box()."\n".	my $emailform = '<input type="text" name="useremail" size="25" value="" />';
&Apache::lonhtmlcommon::row_title(&mt('E-mail address'),	if (grep(/^login$/,@{$cancreate})) {
'LC_pick_box_title')."\n".	$output .= &mt('Provide your e-mail address to request a LON-CAPA account,[_1] if you do not have a log-in ID at your institution.','<br />').'<br /><br />';
$emailform."\n".	} else {
&Apache::lonhtmlcommon::row_closure(1).	$output .= '<br />';
&Apache::lonhtmlcommon::row_title(&mt('Validation'),	}
'LC_pick_box_title')."\n".	$output .= '<form name="createaccount" method="post" onsubmit="return validate_email()" action="/adm/createaccount">'.
$captchaform."\n".'<br /><br />';	&Apache::lonhtmlcommon::start_pick_box()."\n".
if ($courseid ne '') {	&Apache::lonhtmlcommon::row_title(&mt('E-mail address'),
$output .= '<input type="hidden" name="courseid" value="'.$courseid.'"/>'."\n";	'LC_pick_box_title')."\n".
	$emailform."\n".
	&Apache::lonhtmlcommon::row_closure(1).
	&Apache::lonhtmlcommon::row_title(&mt('Validation'),
	'LC_pick_box_title')."\n".
	$captchaform."\n".'<br /><br />';
	if ($courseid ne '') {
	$output .= '<input type="hidden" name="courseid" value="'.$courseid.'"/>'."\n";
	}
	$output .= &Apache::lonhtmlcommon::row_closure(1).
	&Apache::lonhtmlcommon::row_title().'<br />'.
	'<input type="submit" name="create_with_email" value="'.
	$submit_text.'" />'.
	&Apache::lonhtmlcommon::row_closure(1).
	&Apache::lonhtmlcommon::end_pick_box().'<br /><br />';
	if ($courseid ne '') {
	$output .= &Apache::lonhtmlcommon::echo_form_input(['courseid']);
	}
	$output .= '</form>';
	} else {
	my $helpdesk = '/adm/helpdesk?origurl=%2fadm%2fcreateaccount';
	if ($courseid ne '') {
	$helpdesk .= '&courseid='.$courseid;
	}
	$output .= '<span class="LC_error">'.&mt('An error occurred generating the validation code[_1] required for an e-mail address to be used as username.','<br />').'</span><br /><br />'.&mt('[_1]Contact the helpdesk[_2] or [_3]reload[_2] the page and try again.','<a href="'.$helpdesk.'">','</a>','<a href="javascript:window.location.reload()">');
}	}
$output .= '<input type="submit" name="create_with_email" value="'.	$output .= '</div>';
$submit_text.'" />'.
&Apache::lonhtmlcommon::row_closure(1).
&Apache::lonhtmlcommon::end_pick_box().'<br /><br /></form>'.
'</div>';
}	}
}	}
if ($output eq '') {	if ($output eq '') {
Line 395 sub login_box {	Line 459 sub login_box {
);	);
my ($lkey,$ukey) = &Apache::lonpreferences::des_keys();	my ($lkey,$ukey) = &Apache::lonpreferences::des_keys();
my ($lextkey,$uextkey) = &getkeys($lkey,$ukey);	my ($lextkey,$uextkey) = &getkeys($lkey,$ukey);
my $logtoken=Apache::lonnet::reply('tmpput:'.$ukey.$lkey.'&createaccount',	my $logtoken=Apache::lonnet::reply('tmpput:'.$ukey.$lkey.'&createaccount:createaccount',
$lonhost);	$lonhost);
$output = &serverform($logtoken,$lonhost,undef,$courseid,$context);	$output = &serverform($logtoken,$lonhost,undef,$courseid,$context);
my $unameform = '<input type="text" name="uname" size="10" value="" />';	my $unameform = '<input type="text" name="uname" size="20" value="" />';
my $upassform = '<input type="password" name="upass'.$now.'" size="10" />';	my $upassform = '<input type="password" name="upass'.$now.'" size="20" />';
$output .= '<form name="client" method="post" action="/adm/createaccount">'."\n".	$output .= '<form name="client" method="post" action="" onsubmit="return(send());">'."\n".
&Apache::lonhtmlcommon::start_pick_box()."\n";	&Apache::lonhtmlcommon::start_pick_box()."\n".
if ($context eq 'selfenroll') {	&Apache::lonhtmlcommon::row_title($titles{$context},
my $udomform = '<input type="text" name="udom" size="10" value="'.
$domain.'" />';
$output .= &Apache::lonhtmlcommon::row_title(&mt('Domain'),
'LC_pick_box_title')."\n".
$udomform."\n".
&Apache::lonhtmlcommon::row_closure(1)."\n";
}

$output .= &Apache::lonhtmlcommon::row_title($titles{$context},
'LC_pick_box_title')."\n".	'LC_pick_box_title')."\n".
$unameform."\n".	$unameform."\n".
&Apache::lonhtmlcommon::row_closure(1)."\n".	&Apache::lonhtmlcommon::row_closure(1)."\n".
&Apache::lonhtmlcommon::row_title(&mt('Password'),	&Apache::lonhtmlcommon::row_title(&mt('Password'),
'LC_pick_box_title')."\n".	'LC_pick_box_title')."\n".
$upassform."\n".'<br /><br />'."\n".	$upassform;
'<input type="button" name="username_validation" value="'.	if ($context eq 'selfenroll') {
$submit_text.'" onclick="javascript:send()" />'."\n".	my $udomform = '<input type="text" name="udom" size="10" value="'.
&Apache::lonhtmlcommon::row_closure(1)."\n".	$domain.'" />';
&Apache::lonhtmlcommon::end_pick_box().'<br /><br />'."\n".	$output .= &Apache::lonhtmlcommon::row_closure(1)."\n".
'<input type="hidden" name="lextkey" value="'.$lextkey.'">'."\n".	&Apache::lonhtmlcommon::row_title(&mt('Domain'),
'<input type="hidden" name="uextkey" value="'.$uextkey.'">'."\n".	'LC_pick_box_title')."\n".
'</form></div>';	$udomform."\n";
	} else {
	$output .= '<input type="hidden" name="udom" value="'.$domain.'" />';
	}
	$output .= &Apache::lonhtmlcommon::row_closure(1).
	&Apache::lonhtmlcommon::row_title().
	'<br /><input type="submit" name="username_validation" value="'.
	$submit_text.'" />'."\n";
	if ($context eq 'selfenroll') {
	$output .= '<br /><br /><table width="100%"><tr><td align="right">'.
	'<span class="LC_fontsize_medium">'.
	'<a href="/adm/resetpw">'.&mt('Forgot password?').'</a>'.
	'</span></td></tr></table>'."\n";
	}
	$output .= &Apache::lonhtmlcommon::row_closure(1)."\n".
	&Apache::lonhtmlcommon::end_pick_box().'<br />'."\n";
	$output .= '<input type="hidden" name="lextkey" value="'.$lextkey.'" />'."\n".
	'<input type="hidden" name="uextkey" value="'.$uextkey.'" />'."\n".
	'</form>';
return $output;	return $output;
}	}

sub process_email_request {	sub process_email_request {
my ($useremail,$domain,$domdesc,$contact_name,$contact_email,$cancreate,	my ($useremail,$domain,$domdesc,$contact_name,$contact_email,$cancreate,
$server,$settings,$courseid) = @_;	$server,$settings,$courseid) = @_;
my $useremail = $env{'form.useremail'};	$useremail = $env{'form.useremail'};
my $output;	my $output;
if (ref($cancreate) eq 'ARRAY') {	if (ref($cancreate) eq 'ARRAY') {
if (!grep(/^email$/,@{$cancreate})) {	if (!grep(/^email$/,@{$cancreate})) {
Line 468 sub process_email_request {	Line 541 sub process_email_request {
$contact_email,$captcha_hash{$captcha_chk});	$contact_email,$captcha_hash{$captcha_chk});
return $output;	return $output;
}	}
my (%rulematch,%inst_results,%curr_rules,%got_rules,%alerts);
my $uhome=&Apache::lonnet::homeserver($useremail,$domain);	my $uhome=&Apache::lonnet::homeserver($useremail,$domain);
if ($uhome eq 'no_host') {	if ($uhome eq 'no_host') {
my $checkhash;	my (%rulematch,%inst_results,%curr_rules,%got_rules,%alerts);
my $checks = { 'username' => 1 };	&call_rulecheck($useremail,$domain,\%alerts,\%rulematch,
$checkhash->{$useremail.':'.$domain} = { 'newuser' => 1, };	\%inst_results,\%curr_rules,\%got_rules,'username');
&Apache::loncommon::user_rule_check($checkhash,$checks,	if (ref($alerts{'username'}) eq 'HASH') {
\%alerts,\%rulematch,\%inst_results,\%curr_rules,	if (ref($alerts{'username'}{$domain}) eq 'HASH') {
\%got_rules);
if (ref($alerts{'useremail'}) eq 'HASH') {
if (ref($alerts{'useremail'}{$domain}) eq 'HASH') {
if ($alerts{'username'}{$domain}{$useremail}) {	if ($alerts{'username'}{$domain}{$useremail}) {
$output = &invalid_state('userrules',$domdesc,	$output = &invalid_state('userrules',$domdesc,
$contact_name,$contact_email);	$contact_name,$contact_email);
Line 503 sub process_email_request {	Line 572 sub process_email_request {
return $output;	return $output;
}	}

	sub call_rulecheck {
	my ($uname,$udom,$alerts,$rulematch,$inst_results,$curr_rules,
	$got_rules,$tocheck) = @_;
	my ($checkhash,$checks);
	$checkhash->{$uname.':'.$udom} = { 'newuser' => 1, };
	if ($tocheck eq 'username') {
	$checks = { 'username' => 1 };
	}
	&Apache::loncommon::user_rule_check($checkhash,$checks,
	$alerts,$rulematch,$inst_results,$curr_rules,
	$got_rules);
	return;
	}

sub send_token {	sub send_token {
my ($domain,$email,$server,$domdesc,$contact_name,$contact_email,$courseid) = @_;	my ($domain,$email,$server,$domdesc,$contact_name,$contact_email,$courseid) = @_;
my $msg = '<h3>'.&mt('Account creation status').'</h3>'.	my $msg = '<h3>'.&mt('Account creation status').'</h3>'.
Line 514 sub send_token {	Line 597 sub send_token {
'domain' => $domain,	'domain' => $domain,
'username' => $email,	'username' => $email,
'courseid' => $courseid);	'courseid' => $courseid);
my $token = &Apache::lonnet::tmpput(\%info,$server);	my $token = &Apache::lonnet::tmpput(\%info,$server,'createaccount');
if ($token !~ /^error/ && $token ne 'no_such_host') {	if ($token !~ /^error/ && $token ne 'no_such_host') {
my $esc_token = &escape($token);	my $esc_token = &escape($token);
my $mailmsg = &mt('A request was submitted on [_1] for creation of a LON-CAPA account at the following institution: [_2].',localtime(time),$domdesc).' '.	my $showtime = localtime(time);
&mt('To complete this process please open a web browser and enter the following'	my $mailmsg = &mt('A request was submitted on [_1] for creation of a LON-CAPA account at the following institution: [_2].',$showtime,$domdesc).' '.
.' URL in the address/location box: [_1]'	&mt('To complete this process please open a web browser and enter the following URL in the address/location box: [_1]',
,&Apache::lonnet::absolute_url().'/adm/createaccount?token='.$esc_token);	&Apache::lonnet::absolute_url().'/adm/createaccount?token='.$esc_token);
my $result = &Apache::resetpw::send_mail($domdesc,$email,$mailmsg,$contact_name,	my $result = &Apache::resetpw::send_mail($domdesc,$email,$mailmsg,$contact_name,
$contact_email);	$contact_email);
if ($result eq 'ok') {	if ($result eq 'ok') {
Line 560 sub process_mailtoken {	Line 643 sub process_mailtoken {
if ($result eq 'ok') {	if ($result eq 'ok') {
$msg = $output;	$msg = $output;
my $shownow = &Apache::lonlocal::locallocaltime($now);	my $shownow = &Apache::lonlocal::locallocaltime($now);
my $mailmsg = &mt('A LON-CAPA account for the institution: [_1] has been created [_2] from IP address: [_3]. If you did not perform this action or authorize it, please contact the [_4] ([_5]).',$domdesc,$shownow,$ENV{'REMOTE_ADDR'},$contact_name,$contact_email)."\n";	my $mailmsg = &mt('A LON-CAPA account for the institution: [_1] has been created [_2] from IP address: [_3]. If you did not perform this action or authorize it, please contact the [_4] ([_5]).',$domdesc,$shownow,$ENV{'REMOTE_ADDR'},$contact_name,$contact_email)."\n";
my $mailresult = &Apache::resetpw::send_mail($domdesc,$data{'email'},	my $mailresult = &Apache::resetpw::send_mail($domdesc,$data{'email'},
$mailmsg,$contact_name,	$mailmsg,$contact_name,
$contact_email);	$contact_email);
Line 608 sub start_session {	Line 691 sub start_session {
$courseid = &validate_course($courseid);	$courseid = &validate_course($courseid);
if ($courseid ne '') {	if ($courseid ne '') {
$form{'courseid'} = $courseid;	$form{'courseid'} = $courseid;
$firsturl = '/adm/selfenroll?cid='.$courseid;	$firsturl = '/adm/selfenroll?courseid='.$courseid;
}	}
}	}
if ($r->dir_config('lonBalancer') eq 'yes') {	if ($r->dir_config('lonBalancer') eq 'yes') {
Line 638 sub print_dataentry_form {	Line 721 sub print_dataentry_form {
$output .= &javascript_setforms($now)."\n".&javascript_checkpass($now);	$output .= &javascript_setforms($now)."\n".&javascript_checkpass($now);
my ($lkey,$ukey) = &Apache::lonpreferences::des_keys();	my ($lkey,$ukey) = &Apache::lonpreferences::des_keys();
my ($lextkey,$uextkey) = &getkeys($lkey,$ukey);	my ($lextkey,$uextkey) = &getkeys($lkey,$ukey);
my $logtoken=Apache::lonnet::reply('tmpput:'.$ukey.$lkey.'&createaccount',	my $logtoken=Apache::lonnet::reply('tmpput:'.$ukey.$lkey.'&createaccount:createaccount',
$lonhost);	$lonhost);
my @userinfo = ('firstname','middlename','lastname','generation','id',	my $formtag = '<form name="server" method="post" target="_top" action="/adm/createaccount">';
'permanentemail');	my ($datatable,$rowcount) =
my %lt=&Apache::lonlocal::texthash(	&Apache::loncreateuser::personal_data_display($username,$domain,
'pd' => "Personal Data",	'email','selfcreate');
'firstname' => "First Name",	if ($rowcount) {
'middlename' => "Middle Name",	$output .= '<div class="LC_left_float">'.$formtag.$datatable;
'lastname' => "Last Name",	} else {
'generation' => "Generation",	$output .= $formtag;
'permanentemail' => "Permanent e-mail address",
'id' => "ID/Student Number",
'lg' => "Login Data"
);
my %textboxsize = (
firstname => '15',
middlename => '15',
lastname => '15',
generation => '5',
id => '15',
);
my $genhelp=&Apache::loncommon::help_open_topic('Generation');
$output .= '<div class="LC_left_float"><h3>'.$lt{'pd'}.'</h3>'.
'<form name="server" method="post" target="_top" action="/adm/createaccount">'.
&Apache::lonhtmlcommon::start_pick_box();
foreach my $item (@userinfo) {
my $rowtitle = $lt{$item};
if ($item eq 'generation') {
$rowtitle = $genhelp.$rowtitle;
}
$output .= &Apache::lonhtmlcommon::row_title($rowtitle,undef,'LC_oddrow_value')."\n";
if ($item eq 'permanentemail') {
$output .= $username;
} else {
$output .= '<input type="text" name="c'.$item.'" size="'.$textboxsize{$item}.'" value="" />';
}
$output .= &Apache::lonhtmlcommon::row_closure(1);
}	}
$output .= &Apache::lonhtmlcommon::end_pick_box();
$output .= <<"ENDSERVERFORM";	$output .= <<"ENDSERVERFORM";
<input type="hidden" name="logtoken" value="$logtoken" />	<input type="hidden" name="logtoken" value="$logtoken" />
<input type="hidden" name="token" value="$mailtoken" />	<input type="hidden" name="token" value="$mailtoken" />
<input type="hidden" name="serverid" value="$lonhost" />	<input type="hidden" name="serverid" value="$lonhost" />
<input type="hidden" name="uname" value="" />	<input type="hidden" name="uname" value="" />
<input type="hidden" name="upass" value="" />	<input type="hidden" name="upass" value="" />
	<input type="hidden" name="udom" value="" />
<input type="hidden" name="phase" value="createaccount" />	<input type="hidden" name="phase" value="createaccount" />
</form></div>	</form>
ENDSERVERFORM	ENDSERVERFORM
	if ($rowcount) {
	$output .= '</div>'.
	'<div class="LC_left_float">';
	}
my $upassone = '<input type="password" name="upass'.$now.'" size="10" />';	my $upassone = '<input type="password" name="upass'.$now.'" size="10" />';
my $upasstwo = '<input type="password" name="upasscheck'.$now.'" size="10" />';	my $upasstwo = '<input type="password" name="upasscheck'.$now.'" size="10" />';
my $submit_text = &mt('Create LON-CAPA account');	my $submit_text = &mt('Create LON-CAPA account');
$output .= '<div class="LC_left_float"><h3>'.$lt{'lg'}.'</h3>'."\n".	$output .= '<h3>'.&mt('Login Data').'</h3>'."\n".
'<form name="client" method="post" />'."\n".	'<form name="client" method="post" action="" '.
	'onsubmit="return checkpass();">'."\n".
&Apache::lonhtmlcommon::start_pick_box()."\n".	&Apache::lonhtmlcommon::start_pick_box()."\n".
&Apache::lonhtmlcommon::row_title(&mt('Username'),	&Apache::lonhtmlcommon::row_title(&mt('Username'),
'LC_pick_box_title')."\n".	'LC_pick_box_title',
	'LC_oddrow_value')."\n".
$username."\n".	$username."\n".
&Apache::lonhtmlcommon::row_closure(1)."\n".	&Apache::lonhtmlcommon::row_closure(1)."\n".
&Apache::lonhtmlcommon::row_title(&mt('Password'),	&Apache::lonhtmlcommon::row_title(&mt('Password'),
'LC_pick_box_title')."\n".	'LC_pick_box_title',
	'LC_oddrow_value')."\n".
$upassone."\n".	$upassone."\n".
&Apache::lonhtmlcommon::row_closure(1)."\n".	&Apache::lonhtmlcommon::row_closure(1)."\n".
&Apache::lonhtmlcommon::row_title(&mt('Confirm password'),	&Apache::lonhtmlcommon::row_title(&mt('Confirm password'),
'LC_pick_box_title')."\n".	'LC_pick_box_title',
$upasstwo."\n".	'LC_oddrow_value')."\n".
	$upasstwo.
	&Apache::lonhtmlcommon::row_closure(1)."\n".
	&Apache::lonhtmlcommon::row_title()."\n".
	'<br /><input type="submit" name="createaccount" value="'.
	$submit_text.'" />'.
&Apache::lonhtmlcommon::row_closure(1)."\n".	&Apache::lonhtmlcommon::row_closure(1)."\n".
&Apache::lonhtmlcommon::end_pick_box()."\n".	&Apache::lonhtmlcommon::end_pick_box()."\n".
'<input type="hidden" name="uname" value="'.$username.'">'."\n".	'<input type="hidden" name="uname" value="'.$username.'" />'."\n".
'<input type="hidden" name="lextkey" value="'.$lextkey.'">'."\n".	'<input type="hidden" name="udom" value="'.$domain.'" />'."\n".
'<input type="hidden" name="uextkey" value="'.$uextkey.'">'."\n".	'<input type="hidden" name="lextkey" value="'.$lextkey.'" />'."\n".
'</form></div>'."\n".	'<input type="hidden" name="uextkey" value="'.$uextkey.'" />'."\n".
'<div class="LC_clear_float_footer"><br /><br />'."\n".	'</form>';
'<form name="buttonform">'."\n".	if ($rowcount) {
'<input type="button" name="createaccount" value="'.	$output .= '</div>'."\n".
$submit_text.'" onclick="javascript:checkpass();" /></form></div>';	'<div class="LC_clear_float_footer"></div>'."\n";
	}
} else {	} else {
$output = &mt('Could not load javascript file [_1]','<tt>londes.js</tt>');	$output = &mt('Could not load javascript file [_1]','<tt>londes.js</tt>');
}	}
return $output;	return $output;
}	}

	sub get_creation_controls {
	my ($domain,$usercreation) = @_;
	my (@cancreate,@statustocreate);
	if (ref($usercreation) eq 'HASH') {
	if (ref($usercreation->{'cancreate'}) eq 'HASH') {
	if (ref($usercreation->{'cancreate'}{'statustocreate'}) eq 'ARRAY') {
	@statustocreate = @{$usercreation->{'cancreate'}{'statustocreate'}};
	if (@statustocreate == 0) {
	my ($othertitle,$usertypes,$types) =
	&Apache::loncommon::sorted_inst_types($domain);
	if (ref($types) eq 'ARRAY') {
	if (@{$types} == 0) {
	@statustocreate = ('default');
	}
	} else {
	@statustocreate = ('default');
	}
	}
	} else {
	@statustocreate = ('default');
	my ($othertitle,$usertypes,$types) =
	&Apache::loncommon::sorted_inst_types($domain);
	if (ref($types) eq 'ARRAY') {
	push(@statustocreate,@{$types});
	}
	}
	if (ref($usercreation->{'cancreate'}{'selfcreate'}) eq 'ARRAY') {
	@cancreate = @{$usercreation->{'cancreate'}{'selfcreate'}};
	} elsif (($usercreation->{'cancreate'}{'selfcreate'} ne 'none') &&
	($usercreation->{'cancreate'}{'selfcreate'} ne '')) {
	@cancreate = ($usercreation->{'cancreate'}{'selfcreate'});
	}
	}
	}
	return (\@cancreate,\@statustocreate);
	}

sub create_account {	sub create_account {
my ($r,$domain,$lonhost,$username,$domdesc) = @_;	my ($r,$domain,$lonhost,$username,$domdesc) = @_;
my ($retrieved,$output,$upass) = &process_credentials($env{'form.logtoken'},	my ($retrieved,$output,$upass) = &process_credentials($env{'form.logtoken'},
Line 730 sub create_account {	Line 836 sub create_account {
&mt('Return to previous page').'</a>'.	&mt('Return to previous page').'</a>'.
&Apache::loncommon::end_page();	&Apache::loncommon::end_page();
if ($retrieved eq 'ok') {	if ($retrieved eq 'ok') {
if ($env{'form.cid'} ne '') {	if ($env{'form.courseid'} ne '') {
my ($result,$userchkmsg) = &check_id($username,$domain,$domdesc);	my ($result,$userchkmsg) = &check_id($username,$domain,$domdesc);
if ($result eq 'fail') {	if ($result eq 'fail') {
$output = $error.&mt('Invalid ID format').$end.	$output = $error.&mt('Invalid ID format').$end.
Line 756 sub create_account {	Line 862 sub create_account {

sub username_validation {	sub username_validation {
my ($r,$username,$domain,$domdesc,$contact_name,$contact_email,$courseid,	my ($r,$username,$domain,$domdesc,$contact_name,$contact_email,$courseid,
$lonhost) = @_;	$lonhost,$statustocreate) = @_;
my ($retrieved,$output,$upass);	my ($retrieved,$output,$upass);

$username= &LONCAPA::clean_username($username);	$username= &LONCAPA::clean_username($username);
Line 775 sub username_validation {	Line 881 sub username_validation {
$output = '<br /><br />'.&mt('A LON-CAPA account already exists for username [_1] at this institution ([_2]).','<tt>'.$username.'</tt>',$domdesc).'<br />'.&mt('The password entered was also correct so you have been logged in.');	$output = '<br /><br />'.&mt('A LON-CAPA account already exists for username [_1] at this institution ([_2]).','<tt>'.$username.'</tt>',$domdesc).'<br />'.&mt('The password entered was also correct so you have been logged in.');
return ('existingaccount',$output);	return ('existingaccount',$output);
} else {	} else {
$output = '<div class="LC_warning">'.	$output = &login_failure_msg($courseid);
&mt('Username and/or password could not be authenticated.').
'</div>'.
&mt('Please check the username and password.');
}	}
} else {	} else {
my $primlibserv = &Apache::lonnet::domain($domain,'primary');	my $primlibserv = &Apache::lonnet::domain($domain,'primary');
Line 793 sub username_validation {	Line 896 sub username_validation {
}	}
if ($authok eq 'authorized') {	if ($authok eq 'authorized') {
$output = &username_check($username,$domain,$domdesc,$courseid,$lonhost,	$output = &username_check($username,$domain,$domdesc,$courseid,$lonhost,
$contact_email,$contact_name);	$contact_email,$contact_name,undef,
	$statustocreate);
} else {	} else {
$output = '<div class="LC_warning">'.	$output = &login_failure_msg($courseid);
&mt('Username and/or password could not be authenticated.').
'</div>'.
&mt('Please check the username and password.');
}	}
}	}
return ('ok',$output);	return ('ok',$output);
}	}

	sub login_failure_msg {
	my ($courseid) = @_;
	my $url;
	if ($courseid ne '') {
	$url = "/adm/selfenroll?courseid=".$courseid;
	} else {
	$url = "/adm/createaccount";
	}
	my $output = '<h4>'.&mt('Authentication failed').'</h4><div class="LC_warning">'.
	&mt('Username and/or password could not be authenticated.').
	'</div>'.
	&mt('Please check the username and password.').'<br /><br />';
	'<a href="'.$url.'">'.&mt('Try again').'</a>';
	return $output;
	}

sub username_check {	sub username_check {
my ($username,$domain,$domdesc,$courseid,$lonhost,$contact_email,$contact_name,	my ($username,$domain,$domdesc,$courseid,$lonhost,$contact_email,
$sso_logout) = @_;	$contact_name,$sso_logout,$statustocreate) = @_;
my (%rulematch,%inst_results,$newuser,$checkfail,$rowcount,$editable,$output,$msg,	my (%rulematch,%inst_results,$checkfail,$rowcount,$editable,$output,$msg,
%alerts,%curr_rules,%got_rules);	%alerts,%curr_rules,%got_rules);
$newuser = 1;	&call_rulecheck($username,$domain,\%alerts,\%rulematch,
my $checkhash;	\%inst_results,\%curr_rules,\%got_rules,'username');
my $checks = { 'username' => 1 };
$checkhash->{$username.':'.$domain} = { 'newuser' => $newuser };
&Apache::loncommon::user_rule_check($checkhash,$checks,\%alerts,\%rulematch,
\%inst_results,\%curr_rules,\%got_rules);
if (ref($alerts{'username'}) eq 'HASH') {	if (ref($alerts{'username'}) eq 'HASH') {
if (ref($alerts{'username'}{$domain}) eq 'HASH') {	if (ref($alerts{'username'}{$domain}) eq 'HASH') {
if ($alerts{'username'}{$domain}{$username}) {	if ($alerts{'username'}{$domain}{$username}) {
Line 830 sub username_check {	Line 943 sub username_check {
}	}
}	}
if (!$checkfail) {	if (!$checkfail) {
	if (ref($statustocreate) eq 'ARRAY') {
	$checkfail = 'inststatus';
	if (ref($inst_results{$username.':'.$domain}{inststatus}) eq 'ARRAY') {
	foreach my $inststatus (@{$inst_results{$username.':'.$domain}{inststatus}}) {
	if (grep(/^\Q$inststatus\E$/,@{$statustocreate})) {
	undef($checkfail);
	last;
	}
	}
	} elsif (grep(/^default$/,@{$statustocreate})) {
	undef($checkfail);
	}
	}
	}
	if (!$checkfail) {
$output = '<form method="post" action="/adm/createaccount">';	$output = '<form method="post" action="/adm/createaccount">';
(my $datatable,$rowcount,$editable) =	(my $datatable,$rowcount,$editable) =
&Apache::loncreateuser::personal_data_display($username,$domain,1,'selfcreate',	&Apache::loncreateuser::personal_data_display($username,$domain,1,'selfcreate',
Line 845 sub username_check {	Line 973 sub username_check {
'time' => $now,	'time' => $now,
'domain' => $domain,	'domain' => $domain,
'username' => $username);	'username' => $username);
my $authtoken = &Apache::lonnet::tmpput(\%info,$lonhost);	my $authtoken = &Apache::lonnet::tmpput(\%info,$lonhost,'createaccount');
if ($authtoken !~ /^error/ && $authtoken ne 'no_such_host') {	if ($authtoken !~ /^error/ && $authtoken ne 'no_such_host') {
$output .= '<input type="hidden" name="authtoken" value="'.&HTML::Entities::encode($authtoken,'&<>"').'" />';	$output .= '<input type="hidden" name="authtoken" value="'.&HTML::Entities::encode($authtoken,'&<>"').'" />';
} else {	} else {
Line 856 sub username_check {	Line 984 sub username_check {
}	}
}	}
if ($checkfail) {	if ($checkfail) {
$msg = '<h4>'.&mt('Account creation unavailable').'</h4>';	$msg = '<br /><h4>'.&mt('Account creation unavailable').'</h4>';
if ($checkfail eq 'username') {	if ($checkfail eq 'username') {
$msg .= '<span class="LC_warning">'.	$msg .= '<span class="LC_warning">'.
&mt('A LON-CAPA account may not be created with the username you use.').	&mt('A LON-CAPA account may not be created with the username you use.').
Line 864 sub username_check {	Line 992 sub username_check {
} elsif ($checkfail eq 'authtoken') {	} elsif ($checkfail eq 'authtoken') {
$msg .= '<span class="LC_error">'.&mt('Error creating token.').'</span>'.	$msg .= '<span class="LC_error">'.&mt('Error creating token.').'</span>'.
'<br />'.$output;	'<br />'.$output;
	} elsif ($checkfail eq 'inststatus') {
	$msg .= '<span class="LC_warning">'.
	&mt('You are not permitted to create a LON-CAPA account.').
	'</span><br /><br />'.$output;
}	}
$msg .= &mt('Please contact the [_1] ([_2]) for assistance.',	$msg .= &mt('Please contact the [_1] ([_2]) for assistance.',
$contact_name,$contact_email).'<br /><hr />'.	$contact_name,$contact_email).'<br /><hr />'.
Line 877 sub username_check {	Line 1009 sub username_check {
&mt('Create LON-CAPA account').'" /></form>';	&mt('Create LON-CAPA account').'" /></form>';
if ($rowcount) {	if ($rowcount) {
if ($editable) {	if ($editable) {
$msg = &mt('To create one, use the table below to provide information about yourself, then click the [_1]Create LON-CAPA account[_2] button.','<span class="LC_cusr_emph">','</span>').'<br />';	if ($courseid ne '') {
	$msg = '<br /><h4>'.&mt('User information').'</h4>';
	}
	$msg .= &mt('To create one, use the table below to provide information about yourself, then click the [_1]Create LON-CAPA account[_2] button.','<span class="LC_cusr_emph">','</span>').'<br />';
} else {	} else {
$msg = &mt('A user account will be created with information displayed in the table below, when you click the [_1]Create LON-CAPA account[_2] button.','<span class="LC_cusr_emph">','</span>').'<br />';	if ($courseid ne '') {
	$msg = '<h4>'.&mt('Review user information').'</h4>';
	}
	$msg .= &mt('A user account will be created with information displayed in the table below, when you click the [_1]Create LON-CAPA account[_2] button.','<span class="LC_cusr_emph">','</span>').'<br />';
}	}
} else {	} else {
$msg = '<br />'.&mt('Confirm that you wish to create an account.');	if ($courseid ne '') {
	$msg = '<h4>'.&mt('Confirmation').'</h4>';
	}
	$msg .= &mt('Confirm that you wish to create an account.');
}	}
$msg .= $output;	$msg .= $output;
}	}
Line 922 sub username_activation {	Line 1063 sub username_activation {
if ((($domdefaults{'auth_def'} =~/^krb(4\|5)$/) &&	if ((($domdefaults{'auth_def'} =~/^krb(4\|5)$/) &&
($domdefaults{'auth_arg_def'} ne '')) \|\|	($domdefaults{'auth_arg_def'} ne '')) \|\|
($domdefaults{'auth_def'} eq 'localauth')) {	($domdefaults{'auth_def'} eq 'localauth')) {
if ($env{'form.cid'} ne '') {	if ($env{'form.courseid'} ne '') {
my ($result,$userchkmsg) = &check_id($username,$domain,$domdesc);	my ($result,$userchkmsg) = &check_id($username,$domain,$domdesc);
if ($result eq 'fail') {	if ($result eq 'fail') {
$output = $error.&mt('Invalid ID format').$end.	$output = $error.&mt('Invalid ID format').$end.
Line 931 sub username_activation {	Line 1072 sub username_activation {
}	}
}	}
# Call modifyuser	# Call modifyuser
	my (%rulematch,%inst_results,%curr_rules,%got_rules,%alerts,%info);
	&call_rulecheck($username,$domain,\%alerts,\%rulematch,
	\%inst_results,\%curr_rules,\%got_rules);
	my @userinfo = ('firstname','middlename','lastname','generation',
	'permanentemail','id');
	my %canmodify =
	&Apache::loncreateuser::selfcreate_canmodify('selfcreate',$domain,
	\@userinfo,\%inst_results);
	foreach my $item (@userinfo) {
	if ($canmodify{$item}) {
	$info{$item} = $env{'form.c'.$item};
	} else {
	$info{$item} = $inst_results{$username.':'.$domain}{$item};
	}
	}
	if (ref($inst_results{$username.':'.$domain}{'inststatus'}) eq 'ARRAY') {
	my @inststatuses = @{$inst_results{$username.':'.$domain}{'inststatus'}};
	$info{'inststatus'} = join(':',map { &escape($_); } @inststatuses);
	}
my $result =	my $result =
&Apache::lonnet::modifyuser($domain,$username,$env{'form.cid'},	&Apache::lonnet::modifyuser($domain,$username,$env{'form.cid'},
$domdefaults{'auth_def'},	$domdefaults{'auth_def'},
$domdefaults{'auth_arg_def'},$env{'form.cfirstname'},	$domdefaults{'auth_arg_def'},$info{'firstname'},
$env{'form.cmiddlename'},$env{'form.clastname'},	$info{'middlename'},$info{'lastname'},
$env{'form.cgeneration'},undef,undef,	$info{'generation'},undef,undef,
$env{'form.cpermanentemail'});	$info{'permanentemail'},$info{'inststatus'});
if ($result eq 'ok') {	if ($result eq 'ok') {
my $delete = &Apache::lonnet::tmpdel($env{'form.authtoken'});	my $delete = &Apache::lonnet::tmpdel($env{'form.authtoken'});
$output = &mt('A LON-CAPA account has been created for username: [_1] in domain: [_2].',$username,$domain);	$output = &mt('A LON-CAPA account has been created for username: [_1] in domain: [_2].',$username,$domain);
Line 987 sub invalid_state {	Line 1147 sub invalid_state {
my ($error,$domdesc,$contact_name,$contact_email,$msgtext) = @_;	my ($error,$domdesc,$contact_name,$contact_email,$msgtext) = @_;
my $msg = '<h3>'.&mt('Account creation unavailable').'</h3><span class="LC_error">';	my $msg = '<h3>'.&mt('Account creation unavailable').'</h3><span class="LC_error">';
if ($error eq 'baduseremail') {	if ($error eq 'baduseremail') {
$msg = &mt('The e-mail address you provided does not appear to be a valid address.');	$msg .= &mt('The e-mail address you provided does not appear to be a valid address.');
} elsif ($error eq 'existinguser') {	} elsif ($error eq 'existinguser') {
$msg = &mt('The e-mail address you provided is already in use as a username in LON-CAPA at this institution.');	$msg .= &mt('The e-mail address you provided is already in use as a username in LON-CAPA at this institution.');
} elsif ($error eq 'userrules') {	} elsif ($error eq 'userrules') {
$msg = &mt('Username rules for this LON-CAPA at this institution do not allow the e-mail address you provided to be used as a username.');	$msg .= &mt('Username rules at this institution do not allow the e-mail address you provided to be used as a username.');
} elsif ($error eq 'userformat') {	} elsif ($error eq 'userformat') {
$msg = &mt('The e-mail address you provided may not be used as a username at this LON-CAPA institution.');	$msg .= &mt('The e-mail address you provided may not be used as a username at this LON-CAPA institution.');
} elsif ($error eq 'captcha') {	} elsif ($error eq 'captcha') {
$msg = &mt('Validation of the code your entered failed.');	$msg .= &mt('Validation of the code you entered failed.');
} elsif ($error eq 'noemails') {	} elsif ($error eq 'noemails') {
$msg = &mt('Creation of a new user account using an e-mail address as username is not permitted at this LON-CAPA institution.');	$msg .= &mt('Creation of a new user account using an e-mail address as username is not permitted at this LON-CAPA institution.');
}	}
$msg .= '</span>';	$msg .= '</span>';
if ($msgtext) {	if ($msgtext) {
$msg .= '<br />'.$msgtext;	$msg .= '<br />'.$msgtext;
}	}
$msg .= &linkto_email_help($contact_email,$domdesc);	$msg .= &linkto_email_help($contact_email,$domdesc,$error);
return $msg;	return $msg;
}	}

sub linkto_email_help {	sub linkto_email_help {
my ($contact_email,$domdesc) = @_;	my ($contact_email,$domdesc,$error) = @_;
my $msg;	my $msg;
	my $href = '/adm/helpdesk';
if ($contact_email ne '') {	if ($contact_email ne '') {
my $escuri = &HTML::Entities::encode('/adm/createaccount','&<>"');	my $escuri = &HTML::Entities::encode('/adm/createaccount','&<>"');
$msg .= '<br />'.&mt('You may wish to contact the [_1]LON-CAPA helpdesk[_2] for [_3].','<a href="/adm/helpdesk?origurl='.$escuri.'">','</a>',$domdesc).'<br />';	$href .= '?origurl='.$escuri;
	if ($error eq 'existinguser') {
	my $escemail = &HTML::Entities::encode($env{'form.useremail'});
	$href .= '&useremail='.$escemail.'&useraccount='.$escemail;
	}
	$msg .= '<br />'.&mt('You may wish to contact the [_1]LON-CAPA helpdesk[_2] for [_3].','<a href="'.$href.'">','</a>',$domdesc).'<br />';
} else {	} else {
$msg .= '<br />'.&mt('You may wish to send an e-mail to the server administrator: [_1] for [_2].',$Apache::lonnet::perlvar{'AdminEmail'},$domdesc).'<br />';	$msg .= '<br />'.&mt('You may wish to send an e-mail to the server administrator: [_1] for [_2].',$Apache::lonnet::perlvar{'AdminEmail'},$domdesc).'<br />';
}	}
Line 1022 sub linkto_email_help {	Line 1188 sub linkto_email_help {
sub create_captcha {	sub create_captcha {
my ($output_dir,$db_dir) = @_;	my ($output_dir,$db_dir) = @_;
my %captcha_params = &captcha_settings();	my %captcha_params = &captcha_settings();
my $captcha = Authen::Captcha->new(	my ($output,$maxtries,$tries) = ('',10,0);
output_folder => $captcha_params{'output_dir'},	while ($tries < $maxtries) {
data_folder => $captcha_params{'db_dir'},	$tries ++;
);	my $captcha = Authen::Captcha->new (
my $md5sum = $captcha->generate_code($captcha_params{'numchars'});	output_folder => $captcha_params{'output_dir'},
my $output = '<input type="hidden" name="crypt" value="'.$md5sum.'" />'."\n".	data_folder => $captcha_params{'db_dir'},
&mt('Type in the letters/numbers shown below').' '.	);
'<input type="text" size="5" name="code" value="" /><br />'.	my $md5sum = $captcha->generate_code($captcha_params{'numchars'});
'<img src="'.$captcha_params{'www_output_dir'}.'/'.$md5sum.'.png">';
	if (-e $Apache::lonnet::perlvar{'lonCaptchaDir'}.'/'.$md5sum.'.png') {
	$output = '<input type="hidden" name="crypt" value="'.$md5sum.'" />'."\n".
	&mt('Type in the letters/numbers shown below').' '.
	'<input type="text" size="5" name="code" value="" /><br />'.
	'<img src="'.$captcha_params{'www_output_dir'}.'/'.$md5sum.'.png" />';
	last;
	}
	}
return $output;	return $output;
}	}

Line 1056 sub getkeys {	Line 1230 sub getkeys {

sub serverform {	sub serverform {
my ($logtoken,$lonhost,$mailtoken,$courseid,$context) = @_;	my ($logtoken,$lonhost,$mailtoken,$courseid,$context) = @_;
my $phase = 'username_validation"';	my $phase = 'username_validation';
	my $catalog_elements;
if ($context eq 'selfenroll') {	if ($context eq 'selfenroll') {
$phase = 'selfenroll_login';	$phase = 'selfenroll_login';
}	}
my $output .= <<ENDSERVERFORM;	if ($courseid ne '') {
	$catalog_elements = &Apache::lonhtmlcommon::echo_form_input(['courseid','phase']);
	}
	my $output = <<ENDSERVERFORM;
<form name="server" method="post" action="/adm/createaccount">	<form name="server" method="post" action="/adm/createaccount">
<input type="hidden" name="logtoken" value="$logtoken" />	<input type="hidden" name="logtoken" value="$logtoken" />
<input type="hidden" name="token" value="$mailtoken" />	<input type="hidden" name="token" value="$mailtoken" />
<input type="hidden" name="serverid" value="$lonhost" />	<input type="hidden" name="serverid" value="$lonhost" />
<input type="hidden" name="uname" value="" />	<input type="hidden" name="uname" value="" />
<input type="hidden" name="upass" value="" />	<input type="hidden" name="upass" value="" />
	<input type="hidden" name="udom" value="" />
<input type="hidden" name="phase" value="$phase" />	<input type="hidden" name="phase" value="$phase" />
<input type="hidden" name="courseid" value="$courseid" />	<input type="hidden" name="courseid" value="$courseid" />
	$catalog_elements
</form>	</form>
ENDSERVERFORM	ENDSERVERFORM
return $output;	return $output;
Line 1153 sub sso_logout_frag {	Line 1333 sub sso_logout_frag {
return $endsessionmsg;	return $endsessionmsg;
}	}

	sub catreturn_js {
	return <<"ENDSCRIPT";
	<script type="text/javascript">

	function ToSelfenroll(formname) {
	var formidx = getFormByName(formname);
	if (formidx > -1) {
	document.forms[formidx].action = '/adm/selfenroll';
	numidx = getIndexByName(formidx,'phase');
	if (numidx > -1) {
	document.forms[formidx].elements[numidx].value = '';
	}
	numidx = getIndexByName(formidx,'context');
	if (numidx > -1) {
	document.forms[formidx].elements[numidx].value = '';
	}
	}
	document.forms[formidx].submit();
	}

	function ToCatalog(formname,caller) {
	var formidx = getFormByName(formname);
	if (formidx > -1) {
	document.forms[formidx].action = '/adm/coursecatalog';
	numidx = getIndexByName(formidx,'coursenum');
	if (numidx > -1) {
	if (caller != 'details') {
	document.forms[formidx].elements[numidx].value = '';
	}
	}
	}
	document.forms[formidx].submit();
	}

	function getIndexByName(formidx,item) {
	for (var i=0;i<document.forms[formidx].elements.length;i++) {
	if (document.forms[formidx].elements[i].name == item) {
	return i;
	}
	}
	return -1;
	}

	function getFormByName(item) {
	for (var i=0; i<document.forms.length; i++) {
	if (document.forms[i].name == item) {
	return i;
	}
	}
	return -1;
	}

	</script>
	ENDSCRIPT

	}

1;	1;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.

Removed from v.1.20
changed lines
	Added in v.1.47