--- loncom/lonnet/perl/lonnet.pm 2018/04/02 18:23:57 1.1374 +++ loncom/lonnet/perl/lonnet.pm 2018/04/14 02:30:01 1.1375 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.1374 2018/04/02 18:23:57 raeburn Exp $ +# $Id: lonnet.pm,v 1.1375 2018/04/14 02:30:01 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -708,6 +708,10 @@ sub check_for_valid_session { $userhashref->{'name'} = $disk_env{'user.name'}; $userhashref->{'domain'} = $disk_env{'user.domain'}; $userhashref->{'lti'} = $disk_env{'request.lti.login'}; + if ($userhashref->{'lti'}) { + $userhashref->{'ltitarget'} = $disk_env{'request.lti.target'}; + $userhashref->{'ltiuri'} = $disk_env{'request.lti.uri'}; + } } return $handle;