loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.55, 2003/03/24 18:46:44	version 1.56, 2003/04/07 18:24:05
Line 72 sub handler {	Line 72 sub handler {
"request.course.uri" => '',	"request.course.uri" => '',
"request.course.sec" => '',	"request.course.sec" => '',
"request.role" => 'cm',	"request.role" => 'cm',
	"request.role.adv" => $ENV{'user.adv'},
"request.role.domain" => $ENV{'user.domain'});	"request.role.domain" => $ENV{'user.domain'});
foreach $envkey (keys %ENV) {	foreach $envkey (keys %ENV) {
next if ($envkey!~/^user\.role\./);	next if ($envkey!~/^user\.role\./);
Line 129 ENDENTERKEY	Line 130 ENDENTERKEY
}	}
}	}
}	}
&Apache::lonnet::appenv('request.role' => $trolecode,	my $tadv=0;
'request.role.domain' => $cdom,	if (($trolecode!~/^st/) &&
'request.course.sec' => $csec);	($trolecode!~/^ta/) &&
	($trolecode!~/^cm/)) { $tadv=1; }
	&Apache::lonnet::appenv(
	'request.role' => $trolecode,
	'request.role.adv' => $tadv,
	'request.role.domain' => $cdom,
	'request.course.sec' => $csec);
my $msg='Entering course ...';	my $msg='Entering course ...';
if (($cnum) && ($role ne 'ca')) {	if (($cnum) && ($role ne 'ca')) {
my ($furl,$ferr)=	my ($furl,$ferr)=