loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.409, 2016/02/19 02:39:07	version 1.410, 2016/02/19 20:28:46
Line 2164 sub modify_login_block {	Line 2164 sub modify_login_block {

sub personal_data_display {	sub personal_data_display {
my ($ccuname,$ccdomain,$newuser,$context,$inst_results,$rolesarray,	my ($ccuname,$ccdomain,$newuser,$context,$inst_results,$rolesarray,
$now,$captchaform,$emailusername,$usertype,$recaptchaversion) = @_;	$now,$captchaform,$emailusername,$usertype) = @_;
my ($output,%userenv,%canmodify,%canmodify_status);	my ($output,%userenv,%canmodify,%canmodify_status);
my @userinfo = ('firstname','middlename','lastname','generation',	my @userinfo = ('firstname','middlename','lastname','generation',
'permanentemail','id');	'permanentemail','id');
Line 2351 sub personal_data_display {	Line 2351 sub personal_data_display {
}	}
if (($context eq 'selfcreate') && ($newuser eq 'email')) {	if (($context eq 'selfcreate') && ($newuser eq 'email')) {
if ($captchaform) {	if ($captchaform) {
$output .= &Apache::lonhtmlcommon::row_title($lt{'valid'},	$output .= &Apache::lonhtmlcommon::row_title($lt{'valid'}.'*',
'LC_pick_box_title')."\n";	'LC_pick_box_title')."\n".
if ($recaptchaversion >=2) {	$captchaform."\n".'<br /><br />'.
$output .= '<script src="https://www.google.com/recaptcha/api.js"></script>'."\n";
}
$output .= $captchaform."\n".'<br /><br />'.
&Apache::lonhtmlcommon::row_closure(1);	&Apache::lonhtmlcommon::row_closure(1);
$rowcount ++;	$rowcount ++;
}	}