[LON-CAPA-cvs] cvs: loncom /interface lonmsg.pm

[raeburn]

raeburn		Thu Dec 11 01:53:22 2014 EDT

  Modified files:              
    /loncom/interface	lonmsg.pm 
  Log:
  - Coding style: keys()
  
  
Index: loncom/interface/lonmsg.pm
diff -u loncom/interface/lonmsg.pm:1.236 loncom/interface/lonmsg.pm:1.237
--- loncom/interface/lonmsg.pm:1.236	Sun Oct 26 15:34:44 2014
+++ loncom/interface/lonmsg.pm	Thu Dec 11 01:53:22 2014
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines for messaging
 #
-# $Id: lonmsg.pm,v 1.236 2014/10/26 15:34:44 raeburn Exp $
+# $Id: lonmsg.pm,v 1.237 2014/12/11 01:53:22 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -625,7 +625,7 @@
     my ($domain,$author)=($url=~/^($match_domain)\/($match_username)\//);
     my %errormsgs=&Apache::lonnet::dump('nohist_res_msgs',$domain,$author);
     my $msgs='';
-    foreach (keys %errormsgs) {
+    foreach (keys(%errormsgs)) {
 	if ($_=~/^\Q$url\E\_\d+$/) {
 	    my %content=&unpackagemsg($errormsgs{$_});
 	    $msgs.='<p><img src="/adm/lonMisc/bomb.gif" /><b>'.