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

[raeburn]

raeburn		Thu Dec 11 01:48:54 2014 EDT

  Modified files:              
    /loncom/interface	lonmanagekeys.pm 
  Log:
  - Coding style: keys()
  
  
Index: loncom/interface/lonmanagekeys.pm
diff -u loncom/interface/lonmanagekeys.pm:1.26 loncom/interface/lonmanagekeys.pm:1.27
--- loncom/interface/lonmanagekeys.pm:1.26	Mon Jul 15 14:32:45 2013
+++ loncom/interface/lonmanagekeys.pm	Thu Dec 11 01:48:54 2014
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to manage course access keys 
 #
-# $Id: lonmanagekeys.pm,v 1.26 2013/07/15 14:32:45 bisitz Exp $
+# $Id: lonmanagekeys.pm,v 1.27 2014/12/11 01:48:54 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -82,7 +82,7 @@
 </th></tr>
 ENDTABLEHEADER
     }
-    foreach (keys %accesskeys) {
+    foreach (keys(%accesskeys)) {
         if ($_=~/^error\:/) {
 	    $r->print('<tr><td>No keys have been generated yet.</td></tr>');
         } elsif ($accesskeys{$_}=~/$comment/) {
@@ -159,7 +159,7 @@
     my %cenv=@_;
     my %newcomment=();
     undef %newcomment;
-    foreach (keys %env) {
+    foreach (keys(%env)) {
 	if ($_=~/^form\.com\_(.+)$/) {
             my $key=$1;
 	    my $comment=$env{$_};