--- loncom/lti/ltiauth.pm 2018/05/08 00:44:14 1.10 +++ loncom/lti/ltiauth.pm 2018/05/14 19:56:05 1.11 @@ -1,7 +1,7 @@ # The LearningOnline Network # Basic LTI Authentication Module # -# $Id: ltiauth.pm,v 1.10 2018/05/08 00:44:14 raeburn Exp $ +# $Id: ltiauth.pm,v 1.11 2018/05/14 19:56:05 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -432,7 +432,7 @@ sub handler { my @lcroleorder = ('cc','in','ta','ep','st'); my @ltiroleorder = ('Instructor','TeachingAssistant','Mentor','Learner'); if ($params->{'roles'} =~ /,/) { - my @possltiroles = split(/\s*,\s*/,$params->{'role'}); + my @possltiroles = split(/\s*,\s*/,$params->{'roles'}); foreach my $ltirole (@ltiroleorder) { if (grep(/^\Q$ltirole\E$/,@possltiroles)) { push(@ltiroles,$ltirole);