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

[raeburn]

raeburn		Fri Dec 12 14:32:09 2014 EDT

  Modified files:              
    /loncom/interface	lonpreferences.pm 
  Log:
  - Coding style: keys()
  
  
Index: loncom/interface/lonpreferences.pm
diff -u loncom/interface/lonpreferences.pm:1.213 loncom/interface/lonpreferences.pm:1.214
--- loncom/interface/lonpreferences.pm:1.213	Mon May 26 15:21:27 2014
+++ loncom/interface/lonpreferences.pm	Fri Dec 12 14:32:09 2014
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Preferences
 #
-# $Id: lonpreferences.pm,v 1.213 2014/05/26 15:21:27 bisitz Exp $
+# $Id: lonpreferences.pm,v 1.214 2014/12/12 14:32:09 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -789,7 +789,7 @@
     my $textbottom=&mt('Changing roles or logging out may result in data corruption.');
     my ($num,%which)=&Apache::lonnet::get_locks();
     my $which='';
-    foreach my $id (keys %which) {
+    foreach my $id (keys(%which)) {
        $which.='<li>'.$which{$id}.'</li>';
     }
     my $change=&mt('Override');
@@ -1219,7 +1219,7 @@
     );
 
     my $message='';
-    foreach my $item (keys %colortypes) {
+    foreach my $item (keys(%colortypes)) {
         my $color=$env{'form.'.$item};
 	if (!($color =~ /^#/)) {
 	    $color = '#' . $color;