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

minaeibi lon-capa-cvs@mail.lon-capa.org
Tue, 14 Jan 2003 22:01:56 -0000


minaeibi		Tue Jan 14 17:01:56 2003 EDT

  Modified files:              
    /loncom/interface	lonhtmlcommon.pm 
  Log:
  Fixed bug #1168 a minor change done in lonhtmalcommon.pm to 
  sort the section list. so before we had this: 
  
  3
  4
  6
  456 
  1
  2
  5
  ta
  adm
  
  Now we have:
  
  1
  2
  3
  4
  456
  6
  adm
  ta
  
  
  
  
  
  
Index: loncom/interface/lonhtmlcommon.pm
diff -u loncom/interface/lonhtmlcommon.pm:1.10 loncom/interface/lonhtmlcommon.pm:1.11
--- loncom/interface/lonhtmlcommon.pm:1.10	Tue Sep 17 11:32:46 2002
+++ loncom/interface/lonhtmlcommon.pm	Tue Jan 14 17:01:56 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common html routines
 #
-# $Id: lonhtmlcommon.pm,v 1.10 2002/09/17 15:32:46 matthew Exp $
+# $Id: lonhtmlcommon.pm,v 1.11 2003/01/14 22:01:56 minaeibi Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -444,7 +444,7 @@
     my $Str = '';
     $Str .= '<select name="Section" multiple="true" size="4">'."\n";
 
-    foreach (@$sections) {
+    foreach (sort @$sections) {
         $Str .= '<option';
         foreach my $selected (@$selectedSections) {
             if($_ eq $selected) {