';
my $active=1;
@@ -449,6 +464,12 @@ END
}
}
$row.=' | ';
+ if ($allowed && !$active) {
+ $row.= '';
+ } else {
+ $row.=' ';
+ }
+ $row.=' | ';
if ($delallowed) {
$row.= '';
} else {
@@ -468,8 +489,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("