loncom/lti/ltiauth.pm - diff

Return to ltiauth.pm CVS log

Up to [LON-CAPA] / loncom / lti

version 1.10, 2018/05/08 00:44:14	version 1.11, 2018/05/14 19:56:05
Line 432 sub handler {	Line 432 sub handler {
my @lcroleorder = ('cc','in','ta','ep','st');	my @lcroleorder = ('cc','in','ta','ep','st');
my @ltiroleorder = ('Instructor','TeachingAssistant','Mentor','Learner');	my @ltiroleorder = ('Instructor','TeachingAssistant','Mentor','Learner');
if ($params->{'roles'} =~ /,/) {	if ($params->{'roles'} =~ /,/) {
my @possltiroles = split(/\s,\s/,$params->{'role'});	my @possltiroles = split(/\s,\s/,$params->{'roles'});
foreach my $ltirole (@ltiroleorder) {	foreach my $ltirole (@ltiroleorder) {
if (grep(/^\Q$ltirole\E$/,@possltiroles)) {	if (grep(/^\Q$ltirole\E$/,@possltiroles)) {
push(@ltiroles,$ltirole);	push(@ltiroles,$ltirole);