--- loncom/auth/lonroles.pm 2006/10/10 01:55:33 1.162.2.3 +++ loncom/auth/lonroles.pm 2006/08/31 13:25:18 1.164 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # User Roles Screen # -# $Id: lonroles.pm,v 1.162.2.3 2006/10/10 01:55:33 albertel Exp $ +# $Id: lonroles.pm,v 1.164 2006/08/31 13:25:18 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -485,8 +485,11 @@ ENDHEADER $tstatus='selected'; } my $tbg; - if (($tstatus eq 'is') || ($tstatus eq 'selected') || - ($env{'form.showall'})) { + if (($tstatus eq 'is') + || ($tstatus eq 'selected') + || ($tstatus eq 'will') + || ($tstatus eq 'future') + || ($env{'form.showall'})) { if ($tstatus eq 'is') { $tbg='#77FF77'; $tfont='#003300'; @@ -635,7 +638,7 @@ ENDHEADER # More than one possible role # ----------------------------------------------------------------------- Table unless (($advanced) || ($nochoose)) { - $r->print("
'); } @@ -831,7 +834,7 @@ sub build_roletext { $roletext.=' | '.&mt('Switch Server').' | '; } else { - $roletext.=(''); + $roletext.=(' | '); } } elsif ($tstatus eq 'is') { $roletext.=' | '.$trole. ' | '.$twhere. ' | '.$tpstart.
@@ -1013,7 +1015,7 @@ sub allcourses_row {
my ($dcdom,$rowtype) = @_;
my $output = '';
- foreach my $type ('Course') {
+ foreach my $type ('Course','Group') {
my $selectlink = &courselink($dcdom,$rowtype,$type);
my $ccrole = &Apache::lonnet::plaintext('cc',$type);
$output.= ''.$ccrole.''.
| |
---|