--- loncom/lti/ltiauth.pm 2018/03/23 18:08:45 1.7 +++ loncom/lti/ltiauth.pm 2018/04/14 02:30:07 1.8 @@ -1,7 +1,7 @@ # The LearningOnline Network # Basic LTI Authentication Module # -# $Id: ltiauth.pm,v 1.7 2018/03/23 18:08:45 raeburn Exp $ +# $Id: ltiauth.pm,v 1.8 2018/04/14 02:30:07 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -815,11 +815,14 @@ sub lti_session { &Apache::lonauth::success($r,$uname,$udom,$uhome,'noredirect'); if ($symb) { $env{'form.symb'} = $symb; + $env{'request.lti.uri'} = $symb; } else { if ($mapurl) { $env{'form.origurl'} = $mapurl; + $env{'request.lti.uri'} = $mapurl; } elsif ($tail =~ m{^\Q/tiny/$cdom/\E\w+$}) { $env{'form.origurl'} = $tail; + $env{'request.lti.uri'} = $tail; } else { unless ($tail eq '/adm/roles') { $env{'form.origurl'} = '/adm/navmaps'; @@ -855,6 +858,9 @@ sub lti_session { } } $env{'request.lti.login'} = 1; + if ($params->{'launch_presentation_document_target'}) { + $env{'request.lti.target'} = $params->{'launch_presentation_document_target'}; + } foreach my $key (%{$params}) { delete($env{'form.'.$key}); } @@ -876,6 +882,7 @@ sub lti_session { 'username' => $uname, 'server' => $lonhost, 'lti.login' => 1, + 'lti.uri' => $tail, ); if ($role) { $info{'role'} = $role; @@ -907,6 +914,10 @@ sub lti_session { $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'}) { if ($mapurl) { $info{'origurl'} = $mapurl;