[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