';
my $active=1;
@@ -468,8 +485,24 @@ END
' | '.($role_end_time ?localtime($role_end_time)
: ' ' )
." |
\n";
- $r->print($row);
+ $sortrole{$sortkey}=$envkey;
+ $roletext{$envkey}=$row;
+ $roleclass{$envkey}=$class;
+ #$r->print($row);
} # end of foreach (table building loop)
+ foreach my $type ('Construction Space','Course','Domain','System','Unknown') {
+ 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 (defined($output)) {
+ $r->print("