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

[raeburn]

raeburn		Thu Dec 11 01:46:17 2014 EDT

  Modified files:              
    /loncom/interface	lonindexer.pm 
  Log:
  - Coding style: keys()
  
  
Index: loncom/interface/lonindexer.pm
diff -u loncom/interface/lonindexer.pm:1.221 loncom/interface/lonindexer.pm:1.222
--- loncom/interface/lonindexer.pm:1.221	Sat May 31 16:01:33 2014
+++ loncom/interface/lonindexer.pm	Thu Dec 11 01:46:17 2014
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Directory Indexer
 #
-# $Id: lonindexer.pm,v 1.221 2014/05/31 16:01:33 raeburn Exp $
+# $Id: lonindexer.pm,v 1.222 2014/12/11 01:46:17 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -623,7 +623,7 @@
     	
 
 # ----------------- read in what directories have previously been set to "open"
-	foreach (keys %hash) {
+	foreach (keys(%hash)) {
 	    if ($_ =~ /^diropen_status_/) {
 		my $key = $_;
 		$key =~ s/^diropen_status_//;
@@ -754,7 +754,7 @@
     
     (my $luri = $uri) =~ s/\//_/g;
     if ($env{'form.updatedisplay'}) {
-	foreach (keys %hash) {
+	foreach (keys(%hash)) {
 	    delete $hash{$_} if ($_ =~ /^dirlist_files_/);
 	    delete $hash{$_} if ($_ =~ /^dirlist_timestamp_files_/);
 	}
@@ -1432,7 +1432,7 @@
     delete $hash->{'form.element'};
     delete $hash->{'form.omit'};
     delete $hash->{'form.only'};
-    foreach (keys %{$hash}) {
+    foreach (keys(%{$hash})) {
         delete $hash->{$_} if (/^(pre_|store)/);
     }
 }