[LON-CAPA-cvs] cvs: loncom /homework edit.pm

albertel lon-capa-cvs@mail.lon-capa.org
Thu, 28 Mar 2002 22:03:21 -0000


albertel		Thu Mar 28 17:03:21 2002 EDT

  Modified files:              
    /loncom/homework	edit.pm 
  Log:
  - options to be insereted are in alphabetical order now
  
  
Index: loncom/homework/edit.pm
diff -u loncom/homework/edit.pm:1.32 loncom/homework/edit.pm:1.33
--- loncom/homework/edit.pm:1.32	Fri Mar 22 15:05:19 2002
+++ loncom/homework/edit.pm	Thu Mar 28 17:03:21 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # edit mode helpers
 #
-# $Id: edit.pm,v 1.32 2002/03/22 20:05:19 albertel Exp $
+# $Id: edit.pm,v 1.33 2002/03/28 22:03:21 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -165,9 +165,12 @@
     }
   }
   if (@tagnums) {
+    my %options;
     foreach my $tagnum (@tagnums) {
-      $result.='<option value="'.$tagnum.'">'.$Apache::lonxml::insertlist{"$tagnum.description"}."</option>\n";
+      my $descrip=$Apache::lonxml::insertlist{"$tagnum.description"};
+      $options{$descrip} ="<option value=\"$tagnum\">".$descrip."</option>\n";
     }
+    foreach my $option (sort(keys(%options))) { $result.=$options{$option}; }
     if ($result) { $result='<option selected="on"></option>'.$result; }
   }
   return $result;