loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.162, 2006/06/29 17:10:39	version 1.162.2.1, 2006/06/29 17:51:37
Line 635 ENDHEADER	Line 635 ENDHEADER
# More than one possible role	# More than one possible role
# ----------------------------------------------------------------------- Table	# ----------------------------------------------------------------------- Table
unless (($advanced) \|\| ($nochoose)) {	unless (($advanced) \|\| ($nochoose)) {
$r->print("<h2>".&mt('Select a Course/Group to Enter')."</h2>\n");	$r->print("<h2>".&mt('Select a Course to Enter')."</h2>\n");
}	}
$r->print('<br /><table><tr>');	$r->print('<br /><table><tr>');
unless ($nochoose) { $r->print('<th> </th>'); }	unless ($nochoose) { $r->print('<th> </th>'); }
Line 1012 sub allcourses_row {	Line 1012 sub allcourses_row {
my ($dcdom,$rowtype) = @_;	my ($dcdom,$rowtype) = @_;
my $output = '<tr bgcolor="#77FF77">'.	my $output = '<tr bgcolor="#77FF77">'.
' <td colspan="5">';	' <td colspan="5">';
foreach my $type ('Course','Group') {	foreach my $type ('Course') {
my $selectlink = &courselink($dcdom,$rowtype,$type);	my $selectlink = &courselink($dcdom,$rowtype,$type);
my $ccrole = &Apache::lonnet::plaintext('cc',$type);	my $ccrole = &Apache::lonnet::plaintext('cc',$type);
$output.= '<font color="#002200">'.$ccrole.'</font>'.	$output.= '<font color="#002200">'.$ccrole.'</font>'.