version 1.75, 2003/11/08 12:06:38
|
version 1.76, 2003/11/08 21:51:44
|
Line 519 ENDHEADER
|
Line 519 ENDHEADER
|
} |
} |
} |
} |
} |
} |
foreach my $type ('Construction Space','Course','Domain','System') { |
my $doheaders=-1; |
|
foreach my $type (&mt('Construction Space'),&mt('Course'), |
|
&mt('Domain'),&mt('System')) { |
|
my $haverole=0; |
foreach my $which (sort {uc($a) cmp uc($b)} (keys(%sortrole))) { |
foreach my $which (sort {uc($a) cmp uc($b)} (keys(%sortrole))) { |
if ($roleclass{$sortrole{$which}} =~ /^\Q$type\E/) { |
if ($roleclass{$sortrole{$which}} =~ /^\Q$type\E/) { |
$r->print($roletext{$sortrole{$which}}); |
$haverole=1; |
} |
} |
} |
} |
|
if ($haverole) { $doheaders++; } |
|
} |
|
foreach my $type (&mt('Construction Space'),&mt('Course'), |
|
&mt('Domain'),&mt('System')) { |
|
my $output; |
|
foreach my $which (sort {uc($a) cmp uc($b)} (keys(%sortrole))) { |
|
if ($roleclass{$sortrole{$which}} =~ /^\Q$type\E/) { |
|
$output.=$roletext{$sortrole{$which}}; |
|
} |
|
} |
|
if ($output) { |
|
if ($doheaders > 0) { |
|
$r->print("<tr bgcolor='#99ff99'>". |
|
"<td align='center' colspan='7'>$type</td>"); |
|
} |
|
$r->print($output); |
|
} |
} |
} |
my $tremark=''; |
my $tremark=''; |
my $tfont='#003300'; |
my $tfont='#003300'; |