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 |