--- 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.='