--- loncom/interface/domainprefs.pm 2014/07/15 21:52:16 1.160.6.51
+++ loncom/interface/domainprefs.pm 2014/08/06 17:21:34 1.160.6.53
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set domain-wide configuration settings
#
-# $Id: domainprefs.pm,v 1.160.6.51 2014/07/15 21:52:16 raeburn Exp $
+# $Id: domainprefs.pm,v 1.160.6.53 2014/08/06 17:21:34 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -6053,7 +6053,7 @@ sub modify_login {
if (!$privkey) {
$chgtxt .= '
'.&mt('Private key deleted').'';
} else {
- $chgtxt .= ''.&mt('Private key set to [_1]',$pubkey).'';
+ $chgtxt .= ''.&mt('Private key set to [_1]',$privkey).'';
}
$chgtxt .= '';
$resulttext .= ''.$chgtxt.'';
@@ -9057,8 +9057,8 @@ sub process_captcha {
if ($newsettings->{'captcha'} eq 'recaptcha') {
$newpub = $env{'form.'.$container.'_recaptchapub'};
$newpriv = $env{'form.'.$container.'_recaptchapriv'};
- $newpub =~ s/\W//g;
- $newpriv =~ s/\W//g;
+ $newpub =~ s/[^\w\-]//g;
+ $newpriv =~ s/[^\w\-]//g;
$newsettings->{'recaptchakeys'} = {
public => $newpub,
private => $newpriv,