[prev in list] [next in list] [prev in thread] [next in thread] 

List:       lon-capa-cvs
Subject:    [LON-CAPA-cvs] cvs: loncom /auth lonroles.pm
From:       raeburn <raeburn () source ! lon-capa ! org>
Date:       2014-12-14 21:47:49
Message-ID: cvsraeburn1418593669 () cvsserver
[Download RAW message or body]

raeburn		Sun Dec 14 21:47:49 2014 EDT

  Modified files:              
    /loncom/auth	lonroles.pm 
  Log:
  - Coding style: sort() keys()
  
  
Index: loncom/auth/lonroles.pm
diff -u loncom/auth/lonroles.pm:1.308 loncom/auth/lonroles.pm:1.309
--- loncom/auth/lonroles.pm:1.308	Sat May 31 12:49:12 2014
+++ loncom/auth/lonroles.pm	Sun Dec 14 21:47:48 2014
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # User Roles Screen
 #
-# $Id: lonroles.pm,v 1.308 2014/05/31 12:49:12 raeburn Exp $
+# $Id: lonroles.pm,v 1.309 2014/12/14 21:47:48 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1650,7 +1650,7 @@
     my ($dcroles,$update,$then) = @_;
     my $numdc = 0;
     if ($env{'user.adv'}) {
-        foreach my $envkey (sort keys %env) {
+        foreach my $envkey (sort(keys(%env))) {
             if ($envkey=~/^user\.role\.dc\.\/($match_domain)\/$/) {
                 my $dcdom = $1;
                 my $livedc = 1;


_______________________________________________
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]