loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

-version 1.75, 2003/11/08 12:06:38
+version 1.76, 2003/11/08 21:51:44
  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))) {
  	    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 $tfont='#003300';