loncom/auth/migrateuser.pm - diff

Return to migrateuser.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.46, 2020/03/15 23:04:11	version 1.47, 2020/05/24 11:25:29
Line 827 sub handler {	Line 827 sub handler {
}	}
} else {	} else {
my $desturl = '/adm/roles';	my $desturl = '/adm/roles';
if ($data{'origurl'} ne '') {	if ($data{'lti.login'}) {
$desturl = $data{'origurl'};	if ($data{'lti.selfenrollrole'}) {
if ($data{'lti.login'}) {	$desturl .= '?selectrole=1&'.
$desturl = $data{'origurl'};	&escape($data{'lti.selfenrollrole'}).'=1';
	if ($data{'origurl'} ne '') {
	$desturl .= '&orgurl='.$data{'origurl'};
	if ($data{'origurl'} =~ m{/default_\d+\.sequence$}) {
	$desturl .= '&navmap=1';
	}
	}
	} elsif ($data{'origurl'} ne '') {
	$desturl = $data{'origurl'};
if ($desturl =~ m{/default_\d+\.sequence$}) {	if ($desturl =~ m{/default_\d+\.sequence$}) {
$desturl .= (($desturl =~/\?/)?'&':'?').'navmap=1';	$desturl .= (($desturl =~/\?/)?'&':'?').'navmap=1';
}	}
}	}
	} elsif ($data{'origurl'} ne '') {
	$desturl = $data{'origurl'};
if ($data{'linkprot'}) {	if ($data{'linkprot'}) {
my ($linkprotector,$linkuri) = split(/:/,$data{'linkprot'},2);	my ($linkprotector,$linkuri) = split(/:/,$data{'linkprot'},2);
if ($linkprotector) {	if ($linkprotector) {