loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.100, 2004/11/01 23:23:33	version 1.101, 2004/11/02 23:22:46
Line 207 ENDENTERKEY	Line 207 ENDENTERKEY
$ENV{'user.name'},	$ENV{'user.name'},
$ENV{'user.home'},	$ENV{'user.home'},
"Role ".$trolecode);	"Role ".$trolecode);
my $tadv=0;
if (($trolecode!~/^st/) &&
($trolecode!~/^ta/) &&
($trolecode!~/^cm/)) { $tadv=1; }
&Apache::lonnet::appenv(	&Apache::lonnet::appenv(
'request.role' => $trolecode,	'request.role' => $trolecode,
'request.role.adv' => $tadv,
'request.role.domain' => $cdom,	'request.role.domain' => $cdom,
'request.course.sec' => $csec);	'request.course.sec' => $csec);
	my $tadv=0;
	if (&Apache::lonnet::allowed('adv') eq 'F') { $tadv=1; }
	&Apache::lonnet::appenv('request.role.adv' => $tadv);

my $msg=&mt('Entering course ...');	my $msg=&mt('Entering course ...');

if (($cnum) && ($role ne 'ca')) {	if (($cnum) && ($role ne 'ca')) {