loncom/auth/migrateuser.pm - diff

Return to migrateuser.pm CVS log

Up to [LON-CAPA] / loncom / auth

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';