--- loncom/interface/domainprefs.pm 2014/07/15 21:51:47 1.249
+++ loncom/interface/domainprefs.pm 2014/08/06 17:16:29 1.251
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set domain-wide configuration settings
#
-# $Id: domainprefs.pm,v 1.249 2014/07/15 21:51:47 raeburn Exp $
+# $Id: domainprefs.pm,v 1.251 2014/08/06 17:16:29 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -6072,7 +6072,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.'';
@@ -9076,8 +9076,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,