loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.365, 2022/06/26 04:03:47	version 1.367, 2022/10/05 16:11:26
Line 1040 ENDCLOSE	Line 1040 ENDCLOSE
if ($env{'form.ttoken'}) {	if ($env{'form.ttoken'}) {
$dest .= (($dest =~/\?/)? '&':'?').'ttoken='.$env{'form.ttoken'};	$dest .= (($dest =~/\?/)? '&':'?').'ttoken='.$env{'form.ttoken'};
}	}
unless ($env{'request.lti.login'}) {	unless (($env{'request.lti.login'}) \|\| ($env{'request.deeplink.login'})) {
$msg = '<p>'.&mt('Entering [_1] ...',	$msg = '<p>'.&mt('Entering [_1] ...',
$env{'course.'.$cdom.'_'.$cnum.'.description'}).	$env{'course.'.$cdom.'_'.$cnum.'.description'}).
'</p>';	'</p>';
Line 1130 ENDCLOSE	Line 1130 ENDCLOSE
$redirect_url .= $where;	$redirect_url .= $where;
}	}
$redirect_url .= '/';	$redirect_url .= '/';
	if ($env{'form.orgurl'} =~ /^\Q$redirect_url\E/) {
	my ($path) = ($env{'form.orgurl'} =~ m{^(.+)/[^/]+$});
	if (($path ne '') && (-e $Apache::lonnet::perlvar{'lonDocRoot'}.$path)) {
	$redirect_url = $env{'form.orgurl'};
	}
	}
&redirect_user($r,&mt('Entering Authoring Space'),	&redirect_user($r,&mt('Entering Authoring Space'),
$redirect_url);	$redirect_url);
return OK;	return OK;