--- loncom/lonnet/perl/lonnet.pm 2017/11/30 14:41:38 1.1360 +++ loncom/lonnet/perl/lonnet.pm 2017/11/30 15:15:06 1.1361 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.1360 2017/11/30 14:41:38 raeburn Exp $ +# $Id: lonnet.pm,v 1.1361 2017/11/30 15:15:06 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -707,6 +707,7 @@ sub check_for_valid_session { if (ref($userhashref) eq 'HASH') { $userhashref->{'name'} = $disk_env{'user.name'}; $userhashref->{'domain'} = $disk_env{'user.domain'}; + $userhashref->{'lti'} = $disk_env{'request.lti.login'}; } return $handle;