version 1.72.4.7.2.2, 2023/01/23 22:48:27
|
version 1.83, 2021/09/25 20:35:26
|
Line 37 use Apache::lonacc;
|
Line 37 use Apache::lonacc;
|
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::loncommon; |
use Apache::loncommon; |
use Apache::lonhtmlcommon; |
use Apache::lonhtmlcommon; |
|
use Apache::lonuserutils; |
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::lonauth; |
use Apache::lonauth; |
use Apache::resetpw; |
use Apache::resetpw; |
Line 437 sub javascript_setforms {
|
Line 438 sub javascript_setforms {
|
} |
} |
$setuserinfo .= ' server.elements.'.$key.'.value=client.elements.'.$key.'.value;'."\n"; |
$setuserinfo .= ' server.elements.'.$key.'.value=client.elements.'.$key.'.value;'."\n"; |
} |
} |
if ($usertype ne '') { |
$setuserinfo .= ' server.elements.type.value=client.elements.type.value;'."\n"; |
$setuserinfo .= ' server.elements.type.value=client.elements.type.value;'."\n"; |
|
} |
|
} |
} |
if ($captcha eq 'original') { |
if ($captcha eq 'original') { |
$setuserinfo .= ' server.elements.code.value=client.elements.code.value;'."\n". |
$setuserinfo .= ' server.elements.code.value=client.elements.code.value;'."\n". |
Line 527 sub javascript_checkpass {
|
Line 526 sub javascript_checkpass {
|
my $mismatchpass = &mt('The passwords you entered did not match.')."\n". |
my $mismatchpass = &mt('The passwords you entered did not match.')."\n". |
&mt('Please try again.'); |
&mt('Please try again.'); |
my ($numrules,$intargjs) = |
my ($numrules,$intargjs) = |
&Apache::loncommon::passwd_validation_js('upass',$domain); |
&Apache::lonuserutils::passwd_validation_js('upass',$domain); |
&js_escape(\$nopass); |
&js_escape(\$nopass); |
&js_escape(\$mismatchpass); |
&js_escape(\$mismatchpass); |
my $js = <<"ENDSCRIPT"; |
my $js = <<"ENDSCRIPT"; |
Line 740 sub login_box {
|
Line 739 sub login_box {
|
$lonhost); |
$lonhost); |
$output = &serverform($logtoken,$lonhost,undef,$courseid,$context); |
$output = &serverform($logtoken,$lonhost,undef,$courseid,$context); |
my $unameform = '<input type="text" name="uname" size="20" value="" autocomplete="off" />'; |
my $unameform = '<input type="text" name="uname" size="20" value="" autocomplete="off" />'; |
my $upassform = '<input type="password" name="upass'.$now.'" size="20" autocomplete="new-password" />'; |
my $upassform = '<input type="password" name="upass'.$now.'" size="20" autocomplete="off" />'; |
$output .= '<form name="client" method="post" action="" onsubmit="return(send('."'server','client'".'));">'."\n". |
$output .= '<form name="client" method="post" action="" onsubmit="return(send('."'server','client'".'));">'."\n". |
&Apache::lonhtmlcommon::start_pick_box()."\n". |
&Apache::lonhtmlcommon::start_pick_box()."\n". |
&Apache::lonhtmlcommon::row_title($titles{$context}, |
&Apache::lonhtmlcommon::row_title($titles{$context}, |
Line 1182 sub print_dataentry_form {
|
Line 1181 sub print_dataentry_form {
|
my ($lextkey,$uextkey) = &getkeys($lkey,$ukey); |
my ($lextkey,$uextkey) = &getkeys($lkey,$ukey); |
my $logtoken=Apache::lonnet::reply('tmpput:'.$ukey.$lkey.'&createaccount:createaccount', |
my $logtoken=Apache::lonnet::reply('tmpput:'.$ukey.$lkey.'&createaccount:createaccount', |
$lonhost); |
$lonhost); |
my $showsubmit = 1; |
$output .= |
my $serverform = |
|
'<form name="createaccount" method="post" target="_top" action="/adm/createaccount">'; |
'<form name="createaccount" method="post" target="_top" action="/adm/createaccount">'; |
if ($courseid ne '') { |
if ($courseid ne '') { |
$serverform .= '<input type="hidden" name="courseid" value="'.$courseid.'"/>'."\n"; |
$output .= '<input type="hidden" name="courseid" value="'.$courseid.'"/>'."\n"; |
} |
} |
if (ref($emailusername) eq 'HASH') { |
if (ref($emailusername) eq 'HASH') { |
if (ref($emailusername->{$usertype}) eq 'HASH') { |
if (ref($emailusername->{$usertype}) eq 'HASH') { |
foreach my $field (sort(keys(%{$emailusername->{$usertype}}))) { |
foreach my $field (sort(keys(%{$emailusername->{$usertype}}))) { |
$serverform .= '<input type="hidden" name="'.$field.'" value="" />'."\n"; |
$output .= '<input type="hidden" name="'.$field.'" value="" />'."\n"; |
} |
} |
} |
} |
} |
} |
if ($captcha eq 'original') { |
if ($captcha eq 'original') { |
$serverform .= ' |
$output .= ' |
<input type="hidden" name="crypt" value="" /> |
<input type="hidden" name="crypt" value="" /> |
<input type="hidden" name="code" value="" /> |
<input type="hidden" name="code" value="" /> |
|
<br /><br /> |
'; |
'; |
} elsif ($captcha eq 'recaptcha') { |
} elsif ($captcha eq 'recaptcha') { |
if ($recaptchaversion eq '2') { |
unless ($recaptchaversion eq '2') { |
$serverform .= &Apache::lonhtmlcommon::start_pick_box(). |
$output .= ' |
&Apache::lonhtmlcommon::row_title(&mt('Validation').'<b>*</b>', |
|
'LC_pick_box_title', |
|
'LC_oddrow_value')."\n". |
|
$captchaform. |
|
&Apache::lonhtmlcommon::row_closure(1)."\n". |
|
&Apache::lonhtmlcommon::row_title()."\n". |
|
'<br /><input type="button" name="createaccount" value="'. |
|
&mt('Create account').'" onclick="checkpass('."'createaccount','newemail'".')" />'. |
|
&Apache::lonhtmlcommon::row_closure(1)."\n". |
|
&Apache::lonhtmlcommon::end_pick_box(); |
|
undef($captchaform); |
|
undef($showsubmit); |
|
} else { |
|
$serverform .= ' |
|
<input type="hidden" name="recaptcha_challenge_field" value="" /> |
<input type="hidden" name="recaptcha_challenge_field" value="" /> |
<input type="hidden" name="recaptcha_response_field" value="" /> |
<input type="hidden" name="recaptcha_response_field" value="" /> |
|
<br /><br /> |
'; |
'; |
} |
} |
} |
} |
if ($usertype ne '') { |
if ($usertype ne '') { |
$serverform .= '<input type="hidden" name="type" value="'. |
$output .= '<input type="hidden" name="type" value="'. |
&HTML::Entities::encode($usertype,'\'<>"&').'" />'."\n"; |
&HTML::Entities::encode($usertype,'\'<>"&').'" />'."\n"; |
} |
} |
if ($usernameset eq 'free') { |
if ($usernameset eq 'free') { |
$serverform .= '<input type="hidden" name="username" value="" />'."\n"; |
$output .= '<input type="hidden" name="username" value="" />'."\n"; |
} |
} |
$serverform .= <<"ENDSERVERFORM"; |
$output .= <<"ENDSERVERFORM"; |
<input type="hidden" name="logtoken" value="$logtoken" /> |
<input type="hidden" name="logtoken" value="$logtoken" /> |
<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="" /> |
Line 1241 sub print_dataentry_form {
|
Line 1227 sub print_dataentry_form {
|
ENDSERVERFORM |
ENDSERVERFORM |
my $beginclientform = '<form name="newemail" method="post" action="" '. |
my $beginclientform = '<form name="newemail" method="post" action="" '. |
'onsubmit="return checkpass('."'createaccount','newemail'".');">'."\n"; |
'onsubmit="return checkpass('."'createaccount','newemail'".');">'."\n"; |
my $endclientform; |
my $endclientform = '<input type="hidden" name="udom" value="'.$domain.'" />'."\n". |
unless ($showsubmit) { |
'<input type="hidden" name="lextkey" value="'.$lextkey.'" />'."\n". |
if ($usertype ne '') { |
'<input type="hidden" name="uextkey" value="'.$uextkey.'" />'."\n". |
$endclientform = '<input type="hidden" name="type" value="'. |
'</form>'."\n". |
&HTML::Entities::encode($usertype,'\'<>"&').'" />'."\n"; |
'<p class="LC_info">'.&mt('Fields marked [_1]*[_2] are required.','<b>','</b>').'</p>'; |
} |
|
} |
|
$endclientform .= '<input type="hidden" name="udom" value="'.$domain.'" />'."\n". |
|
'<input type="hidden" name="lextkey" value="'.$lextkey.'" />'."\n". |
|
'<input type="hidden" name="uextkey" value="'.$uextkey.'" />'."\n". |
|
'</form>'."\n"; |
|
my ($datatable,$rowcount) = |
my ($datatable,$rowcount) = |
&Apache::loncreateuser::personal_data_display('',$domain,'email','selfcreate', |
&Apache::loncreateuser::personal_data_display('',$domain,'email','selfcreate', |
'','',$now,$captchaform, |
'','',$now,$captchaform, |
$emailusername,$usertype, |
$emailusername,$usertype, |
$usernameset,$condition,$excluded, |
$usernameset,$condition,$excluded); |
$showsubmit); |
|
if ($rowcount) { |
if ($rowcount) { |
$output .= '<div class="LC_left_float">'.$beginclientform.$datatable.$endclientform.'</div>'."\n". |
$output .= '<div class="LC_left_float">'.$beginclientform.$datatable.$endclientform; |
'<div class="LC_clear_float_footer"></div>'."\n"; |
|
} else { |
} else { |
$output .= $beginclientform.$endclientform; |
$output .= $beginclientform.$endclientform; |
} |
} |
$output .= $serverform. |
if ($rowcount) { |
'<p class="LC_info">'. |
$output .= '</div>'."\n". |
&mt('Fields marked [_1]*[_2] are required.','<b>','</b>'). |
'<div class="LC_clear_float_footer"></div>'."\n"; |
'</p>'; |
} |
} 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>'); |
} |
} |