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

albertel lon-capa-cvs@mail.lon-capa.org
Wed, 14 Aug 2002 16:04:31 -0000


albertel		Wed Aug 14 12:04:31 2002 EDT

  Modified files:              
    /loncom/interface	lonparmset.pm 
  Log:
  Mark Lucas tweaks
  
  
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.59 loncom/interface/lonparmset.pm:1.60
--- loncom/interface/lonparmset.pm:1.59	Mon Aug 12 14:54:16 2002
+++ loncom/interface/lonparmset.pm	Wed Aug 14 12:04:30 2002
@@ -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 @@
     $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 @@
 
 #-------------------------------------------- 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