--- loncom/interface/lonparmset.pm	2002/08/12 18:54:16	1.59
+++ loncom/interface/lonparmset.pm	2002/08/14 16:04:30	1.60
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.59 2002/08/12 18:54:16 matthew Exp $
+# $Id: lonparmset.pm,v 1.60 2002/08/14 16:04:30 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -870,11 +870,9 @@ sub assessparms {
     $r->print('</table>');
 
     my @temp_psprt;
-    map {
-         my $t = $_;
-         push(@temp_psprt,
-         grep {eval (/^$t\./ || ($_ == $t))} (keys %allparts));
-    } @psprt;
+    foreach my $t (@psprt) {
+	push(@temp_psprt, grep {eval (/^$t\./ || ($_ == $t))} (keys %allparts));
+    }
 
     @psprt = @temp_psprt;
 
@@ -1034,8 +1032,8 @@ ENDTABLEHEADFOUR
 
 #-------------------------------------------- for each map, gather information
             my $mapid;
-            foreach $mapid (keys %maplist) {
-                my $maptitle = $allmaps{$mapid};
+	    foreach $mapid (sort {$maplist{$a} cmp $maplist{$b}} keys %maplist) {
+                my $maptitle = $maplist{$mapid};
 
 #-----------------------  loop through ids and get all parameter types for map
 #-----------------------------------------          and associated information