--- loncom/lti/ltiauth.pm 2017/12/07 15:36:25 1.2 +++ loncom/lti/ltiauth.pm 2017/12/09 16:15:47 1.3 @@ -1,7 +1,7 @@ # The LearningOnline Network # Basic LTI Authentication Module # -# $Id: ltiauth.pm,v 1.2 2017/12/07 15:36:25 raeburn Exp $ +# $Id: ltiauth.pm,v 1.3 2017/12/09 16:15:47 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -241,10 +241,10 @@ sub handler { $protocol = 'https'; } - my ($itemid,$key,$secret,@ltiroles); - $key = $params->{'oauth_consumer_key'}; - if (ref($lti_by_key{$key}) eq 'ARRAY') { - foreach my $id (@{$lti_by_key{$key}}) { + my ($itemid,$consumer_key,$secret,@ltiroles); + $consumer_key = $params->{'oauth_consumer_key'}; + if (ref($lti_by_key{$consumer_key}) eq 'ARRAY') { + foreach my $id (@{$lti_by_key{$consumer_key}}) { if (ref($lti{$id}) eq 'HASH') { $secret = $lti{$id}{'secret'}; my $request = Net::OAuth->request('request token')->from_hash($params, @@ -497,7 +497,7 @@ sub handler { # Check if user should be hosted here or switched to another server. # - &Apache::lonnet::logthis(" LTI authorized user: $uname:$udom role: $role course: $cnum:$cdom"); + &Apache::lonnet::logthis(" LTI authorized user: $uname:$udom role: $role course: $cdom\_$cnum"); $r->user($uname); my ($is_balancer,$otherserver,$hosthere); ($is_balancer,$otherserver) =