loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.85, 2004/01/31 00:46:45	version 1.88, 2004/03/09 21:01:55
Line 142 ENDENTERKEY	Line 142 ENDENTERKEY
}	}
}	}
}	}
	&Apache::lonnet::log($ENV{'user.domain'},
	$ENV{'user.name'},
	$ENV{'user.home'},
	"Role ".$trolecode);
my $tadv=0;	my $tadv=0;
if (($trolecode!~/^st/) &&	if (($trolecode!~/^st/) &&
($trolecode!~/^ta/) &&	($trolecode!~/^ta/) &&
Line 370 ENDHEADER	Line 374 ENDHEADER
$tbg='#11CC55';	$tbg='#11CC55';
$tfont='#002200';	$tfont='#002200';
$inrole=1;	$inrole=1;
	$countactive++;
$tremark.=&mt('Currently selected. ');	$tremark.=&mt('Currently selected. ');
}	}
my $trole;	my $trole;
Line 524 ENDHEADER	Line 529 ENDHEADER
$r->print('</form></body></html>');	$r->print('</form></body></html>');
return OK;	return OK;
# Is there only one choice?	# Is there only one choice?
} elsif ($countactive==1) {	} elsif (($countactive==1) && ($ENV{'request.role'} eq 'cm')) {
$r->print('<h3>'.&mt('Please stand by.').'</h3>'.	$r->print('<h3>'.&mt('Please stand by.').'</h3>'.
'<input type="hidden" name="'.$possiblerole.'" value="1" />');	'<input type="hidden" name="'.$possiblerole.'" value="1" />');
$r->print("</form>\n");	$r->print("</form>\n");