[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;