version 1.31, 2018/04/17 19:48:18
|
version 1.32, 2018/05/08 15:44:11
|
Line 94 sub lti_check {
|
Line 94 sub lti_check {
|
if ($data->{'lti.target'}) { |
if ($data->{'lti.target'}) { |
$lti_env{'request.lti.target'} = $data->{'lti.target'}; |
$lti_env{'request.lti.target'} = $data->{'lti.target'}; |
} |
} |
|
if ($data->{'lti.sourcecrs'}) { |
|
$lti_env{'request.lti.sourcecrs'} = $data->{'lti.sourcecrs'}; |
|
} |
} |
} |
if ($data->{'lti.passbackid'}) { |
if ($data->{'lti.passbackid'}) { |
$lti_env{'request.lti.passbackid'} = $data->{'lti.passbackid'}; |
$lti_env{'request.lti.passbackid'} = $data->{'lti.passbackid'}; |
Line 420 sub handler {
|
Line 423 sub handler {
|
delete($lti_env->{'selfenrollrole'}); |
delete($lti_env->{'selfenrollrole'}); |
} |
} |
if ($data{'lti.selfenrollrole'}) { |
if ($data{'lti.selfenrollrole'}) { |
if (&Apache::ltiauth::lti_enroll($data{'username'},data{'domain'}, |
if (&Apache::ltiauth::lti_enroll($data{'username'},$data{'domain'}, |
$data{'lti.selfenrollrole'}) eq 'ok') { |
$data{'lti.selfenrollrole'}) eq 'ok') { |
my $url = '/adm/roles?selectrole=1&'. |
my $url = '/adm/roles?selectrole=1&'. |
&escape($data{'lti.selfenrollrole'}).'=1'; |
&escape($data{'lti.selfenrollrole'}).'=1'; |