--- loncom/interface/lonmanagekeys.pm	2009/10/29 14:23:23	1.25
+++ loncom/interface/lonmanagekeys.pm	2014/12/11 01:48:54	1.27
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to manage course access keys 
 #
-# $Id: lonmanagekeys.pm,v 1.25 2009/10/29 14:23:23 bisitz Exp $
+# $Id: lonmanagekeys.pm,v 1.27 2014/12/11 01:48:54 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -78,11 +78,11 @@ sub show_key_list {
 <th>Comments/Remarks/Notes</th>
 <th>Enter Additional Comments/Remarks/Notes<br />
 <input type="text" size="40" name="copyall" />
-<input type="button" value="Copy to All" onClick="copyallcom(this.form);" />
+<input type="button" value="Copy to All" onclick="copyallcom(this.form);" />
 </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 @@ sub addcom {
     my %cenv=@_;
     my %newcomment=();
     undef %newcomment;
-    foreach (keys %env) {
+    foreach (keys(%env)) {
 	if ($_=~/^form\.com\_(.+)$/) {
             my $key=$1;
 	    my $comment=$env{$_};