loncom/interface/lonparmset.pm - diff

Return to lonparmset.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.59, 2002/08/12 18:54:16	version 1.60, 2002/08/14 16:04:30
Line 870 sub assessparms {	Line 870 sub assessparms {
$r->print('</table>');	$r->print('</table>');

my @temp_psprt;	my @temp_psprt;
map {	foreach my $t (@psprt) {
my $t = $_;	push(@temp_psprt, grep {eval (/^$t\./ \|\| ($_ == $t))} (keys %allparts));
push(@temp_psprt,	}
grep {eval (/^$t\./ \|\| ($_ == $t))} (keys %allparts));
} @psprt;

@psprt = @temp_psprt;	@psprt = @temp_psprt;

Line 1034 ENDTABLEHEADFOUR	Line 1032 ENDTABLEHEADFOUR

#-------------------------------------------- for each map, gather information	#-------------------------------------------- for each map, gather information
my $mapid;	my $mapid;
foreach $mapid (keys %maplist) {	foreach $mapid (sort {$maplist{$a} cmp $maplist{$b}} keys %maplist) {
my $maptitle = $allmaps{$mapid};	my $maptitle = $maplist{$mapid};

#----------------------- loop through ids and get all parameter types for map	#----------------------- loop through ids and get all parameter types for map
#----------------------------------------- and associated information	#----------------------------------------- and associated information