[LON-CAPA-cvs] cvs: rat / lonuserstate.pm

[raeburn]

raeburn		Mon Dec 15 01:10:19 2014 EDT

  Modified files:              
    /rat	lonuserstate.pm 
  Log:
  - Coding style: keys()
  
  
Index: rat/lonuserstate.pm
diff -u rat/lonuserstate.pm:1.148 rat/lonuserstate.pm:1.149
--- rat/lonuserstate.pm:1.148	Sun Feb 23 20:27:54 2014
+++ rat/lonuserstate.pm	Mon Dec 15 01:10:19 2014
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Construct and maintain state and binary representation of course for user
 #
-# $Id: lonuserstate.pm,v 1.148 2014/02/23 20:27:54 raeburn Exp $
+# $Id: lonuserstate.pm,v 1.149 2014/12/15 01:10:19 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1072,7 +1072,7 @@
 
 sub hiddenurls {
     my $randomoutentry='';
-    foreach my $rid (keys %randompick) {
+    foreach my $rid (keys(%randompick)) {
         my $rndpick=$randompick{$rid};
         my $mpc=$hash{'map_pc_'.$hash{'src_'.$rid}};
 # ------------------------------------------- put existing resources into array
@@ -1123,7 +1123,7 @@
         }
     }
 # ------------------------------ take care of explicitly hidden urls or folders
-    foreach my $rid (keys %hiddenurl) {
+    foreach my $rid (keys(%hiddenurl)) {
 	$hash{'randomout_'.$rid}=1;
 	my ($mapid,$resid)=split(/\./,$rid);
 	$randomoutentry.='&'.