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

[raeburn]

raeburn		Mon Dec 15 01:11:49 2014 EDT

  Modified files:              
    /loncom/interface	lonuserutils.pm 
  Log:
  - Coding style: keys()
  
  
Index: loncom/interface/lonuserutils.pm
diff -u loncom/interface/lonuserutils.pm:1.168 loncom/interface/lonuserutils.pm:1.169
--- loncom/interface/lonuserutils.pm:1.168	Fri Jun 13 11:14:35 2014
+++ loncom/interface/lonuserutils.pm	Mon Dec 15 01:11:49 2014
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Utility functions for managing LON-CAPA user accounts
 #
-# $Id: lonuserutils.pm,v 1.168 2014/06/13 11:14:35 raeburn Exp $
+# $Id: lonuserutils.pm,v 1.169 2014/12/15 01:11:49 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -5267,7 +5267,7 @@
 sub course_sections {
     my ($sections_count,$role,$current_sec) = @_;
     my $output = '';
-    my @sections = (sort {$a <=> $b} keys %{$sections_count});
+    my @sections = (sort {$a <=> $b} keys(%{$sections_count}));
     my $numsec = scalar(@sections);
     my $is_selected = ' selected="selected"';
     if ($numsec <= 1) {