[LON-CAPA-cvs] cvs: loncom /auth lonroles.pm

[raeburn]

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;