--- loncom/interface/lonpreferences.pm	2014/05/26 15:21:27	1.213
+++ loncom/interface/lonpreferences.pm	2014/12/12 14:32:09	1.214
@@ -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 @@ sub lockwarning {
     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 @@ sub verify_and_change_colors {
     );
 
     my $message='';
-    foreach my $item (keys %colortypes) {
+    foreach my $item (keys(%colortypes)) {
         my $color=$env{'form.'.$item};
 	if (!($color =~ /^#/)) {
 	    $color = '#' . $color;