loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.116, 2005/03/03 07:16:44	version 1.117, 2005/03/03 07:32:49
Line 224 ENDENTERKEY	Line 224 ENDENTERKEY
'request.role.domain' => $cdom,	'request.role.domain' => $cdom,
'request.course.sec' => $csec);	'request.course.sec' => $csec);
my $tadv=0;	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')) {
Line 238 ENDENTERKEY	Line 235 ENDENTERKEY
if ( &Apache::lonnet::mod_perl_version() == 2 ) {	if ( &Apache::lonnet::mod_perl_version() == 2 ) {
&Apache::lonnet::cleanenv();	&Apache::lonnet::cleanenv();
}	}
	if (&Apache::lonnet::allowed('adv') eq 'F') { $tadv=1; }
	&Apache::lonnet::appenv('request.role.adv'=>$tadv);
$r->internal_redirect($dest);	$r->internal_redirect($dest);
return OK;	return OK;
} else {	} else {
Line 250 ENDENTERKEY	Line 249 ENDENTERKEY
&mt('Could not initialize course at this time.').	&mt('Could not initialize course at this time.').
'</font></h1><h3>'.&mt('Please try again.').'</h3>'.$ferr;	'</font></h1><h3>'.&mt('Please try again.').'</h3>'.$ferr;
}	}
	if (&Apache::lonnet::allowed('adv') eq 'F') { $tadv=1; }
	&Apache::lonnet::appenv('request.role.adv'=>$tadv);

# Check to see if the user is a CC entering a course	# Check to see if the user is a CC entering a course
# for the first time	# for the first time