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

[raeburn]

raeburn		Wed Jan  9 20:52:52 2013 EDT

  Modified files:              
    /loncom/interface	domainprefs.pm 
  Log:
  - Coding style.
    - sort()
  
  
Index: loncom/interface/domainprefs.pm
diff -u loncom/interface/domainprefs.pm:1.183 loncom/interface/domainprefs.pm:1.184
--- loncom/interface/domainprefs.pm:1.183	Wed Jan  9 18:14:04 2013
+++ loncom/interface/domainprefs.pm	Wed Jan  9 20:52:52 2013
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set domain-wide configuration settings
 #
-# $Id: domainprefs.pm,v 1.183 2013/01/09 18:14:04 bisitz Exp $
+# $Id: domainprefs.pm,v 1.184 2013/01/09 20:52:52 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -843,7 +843,7 @@
                           '<td><select name="'.$lonhost.'_server">'.
                           '<option value=""'.$direct.'>'.$choices{'directlogin'}.
                           '</option>';
-            foreach my $hostid (sort keys(%servers)) {
+            foreach my $hostid (sort(keys(%servers))) {
                 next if ($servers{$hostid} eq $servers{$lonhost});
                 my $selected = '';
                 if (ref($disallowed{$lonhost}) eq 'HASH') {
@@ -5616,7 +5616,7 @@
         print $logfile "\nWrite metadata file for ".$targetdir.'/'.$file;
         my $mfh;
         if (open($mfh,'>'.$targetdir.'/'.$file.'.meta')) {
-            foreach (sort keys %metadatafields) {
+            foreach (sort(keys(%metadatafields))) {
                 unless ($_=~/\./) {
                     my $unikey=$_;
                     $unikey=~/^([A-Za-z]+)/;