[prev in list] [next in list] [prev in thread] [next in thread]
List: lon-capa-cvs
Subject: [LON-CAPA-cvs] cvs: rat / lonuserstate.pm
From: raeburn <raeburn () source ! lon-capa ! org>
Date: 2014-12-15 1:10:19
Message-ID: cvsraeburn1418605819 () cvsserver
[Download RAW message or body]
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.='&'.
_______________________________________________
LON-CAPA-cvs mailing list
LON-CAPA-cvs@mail.lon-capa.org
http://mail.lon-capa.org/mailman/listinfo/lon-capa-cvs
[prev in list] [next in list] [prev in thread] [next in thread]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic