|
version 1.249, 2014/07/15 21:51:47
|
version 1.251, 2014/08/06 17:16:29
|
|
Line 6072 sub modify_login {
|
Line 6072 sub modify_login {
|
| if (!$privkey) { |
if (!$privkey) { |
| $chgtxt .= '<li>'.&mt('Private key deleted').'</li>'; |
$chgtxt .= '<li>'.&mt('Private key deleted').'</li>'; |
| } else { |
} else { |
| $chgtxt .= '<li>'.&mt('Private key set to [_1]',$pubkey).'</li>'; |
$chgtxt .= '<li>'.&mt('Private key set to [_1]',$privkey).'</li>'; |
| } |
} |
| $chgtxt .= '</ul>'; |
$chgtxt .= '</ul>'; |
| $resulttext .= '<li>'.$chgtxt.'</li>'; |
$resulttext .= '<li>'.$chgtxt.'</li>'; |
|
Line 9076 sub process_captcha {
|
Line 9076 sub process_captcha {
|
| if ($newsettings->{'captcha'} eq 'recaptcha') { |
if ($newsettings->{'captcha'} eq 'recaptcha') { |
| $newpub = $env{'form.'.$container.'_recaptchapub'}; |
$newpub = $env{'form.'.$container.'_recaptchapub'}; |
| $newpriv = $env{'form.'.$container.'_recaptchapriv'}; |
$newpriv = $env{'form.'.$container.'_recaptchapriv'}; |
| $newpub =~ s/\W//g; |
$newpub =~ s/[^\w\-]//g; |
| $newpriv =~ s/\W//g; |
$newpriv =~ s/[^\w\-]//g; |
| $newsettings->{'recaptchakeys'} = { |
$newsettings->{'recaptchakeys'} = { |
| public => $newpub, |
public => $newpub, |
| private => $newpriv, |
private => $newpriv, |
![[BACK]](/icons/back.gif){kind=icon}
Return to domainprefs.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface