loncom/lti/ltiauth.pm - diff

Return to ltiauth.pm CVS log

Up to [LON-CAPA] / loncom / lti

version 1.15, 2018/06/30 23:58:14	version 1.16, 2018/08/14 21:03:39
Line 205 sub handler {	Line 205 sub handler {
$mapurl = $tail;	$mapurl = $tail;
} else {	} else {
$symb = $tail;	$symb = $tail;
$symb =~ s{^/+}{};	$symb =~ s{^/}{};
}	}
} elsif ($tail =~ m{^/res/(?:$match_domain)/(?:$match_username)/.+\.(?:sequence\|page)(\|___\d+___.+)$}) {	} elsif ($tail =~ m{^/res/(?:$match_domain)/(?:$match_username)/.+\.(?:sequence\|page)(\|___\d+___.+)$}) {
if ($1 eq '') {	if ($1 eq '') {
$mapurl = $tail;	$mapurl = $tail;
} else {	} else {
$symb = $tail;	$symb = $tail;
$symb =~ s{^/+}{};	$symb =~ s{^/res/}{};
}	}
} elsif ($tail =~ m{^/($match_domain)/($match_courseid)$}) {	} elsif ($tail =~ m{^/($match_domain)/($match_courseid)$}) {
($urlcdom,$urlcnum) = ($1,$2);	($urlcdom,$urlcnum) = ($1,$2);
Line 730 sub lti_session {	Line 730 sub lti_session {
&Apache::lonauth::success($r,$uname,$udom,$uhome,'noredirect');	&Apache::lonauth::success($r,$uname,$udom,$uhome,'noredirect');
if ($symb) {	if ($symb) {
$env{'form.symb'} = $symb;	$env{'form.symb'} = $symb;
$env{'request.lti.uri'} = $symb;	$env{'request.lti.uri'} = $tail;
} else {	} else {
if ($mapurl) {	if ($mapurl) {
$env{'form.origurl'} = $mapurl;	$env{'form.origurl'} = $mapurl;