version 1.7, 2018/03/23 18:08:45
|
version 1.8, 2018/04/14 02:30:07
|
Line 815 sub lti_session {
|
Line 815 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; |
} else { |
} else { |
if ($mapurl) { |
if ($mapurl) { |
$env{'form.origurl'} = $mapurl; |
$env{'form.origurl'} = $mapurl; |
|
$env{'request.lti.uri'} = $mapurl; |
} elsif ($tail =~ m{^\Q/tiny/$cdom/\E\w+$}) { |
} elsif ($tail =~ m{^\Q/tiny/$cdom/\E\w+$}) { |
$env{'form.origurl'} = $tail; |
$env{'form.origurl'} = $tail; |
|
$env{'request.lti.uri'} = $tail; |
} else { |
} else { |
unless ($tail eq '/adm/roles') { |
unless ($tail eq '/adm/roles') { |
$env{'form.origurl'} = '/adm/navmaps'; |
$env{'form.origurl'} = '/adm/navmaps'; |
Line 855 sub lti_session {
|
Line 858 sub lti_session {
|
} |
} |
} |
} |
$env{'request.lti.login'} = 1; |
$env{'request.lti.login'} = 1; |
|
if ($params->{'launch_presentation_document_target'}) { |
|
$env{'request.lti.target'} = $params->{'launch_presentation_document_target'}; |
|
} |
foreach my $key (%{$params}) { |
foreach my $key (%{$params}) { |
delete($env{'form.'.$key}); |
delete($env{'form.'.$key}); |
} |
} |
Line 876 sub lti_session {
|
Line 882 sub lti_session {
|
'username' => $uname, |
'username' => $uname, |
'server' => $lonhost, |
'server' => $lonhost, |
'lti.login' => 1, |
'lti.login' => 1, |
|
'lti.uri' => $tail, |
); |
); |
if ($role) { |
if ($role) { |
$info{'role'} = $role; |
$info{'role'} = $role; |
Line 907 sub lti_session {
|
Line 914 sub lti_session {
|
$info{'lti.rosterurl'} = $params->{'ext_ims_lis_memberships_url'}; |
$info{'lti.rosterurl'} = $params->{'ext_ims_lis_memberships_url'}; |
} |
} |
} |
} |
|
if ($params->{'launch_presentation_document_target'}) { |
|
$info{'lti.target'} = $params->{'launch_presentation_document_target'}; |
|
} |
|
|
unless ($info{'symb'}) { |
unless ($info{'symb'}) { |
if ($mapurl) { |
if ($mapurl) { |
$info{'origurl'} = $mapurl; |
$info{'origurl'} = $mapurl; |