loncom/auth/migrateuser.pm - diff

Return to migrateuser.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.59, 2022/03/29 19:12:04	version 1.60, 2022/05/21 06:28:35
Line 999 sub handler {	Line 999 sub handler {
} elsif ($data{'origurl'} =~ m{^/tiny/$match_domain/\w+$}) {	} elsif ($data{'origurl'} =~ m{^/tiny/$match_domain/\w+$}) {
$next_url=$data{'origurl'};	$next_url=$data{'origurl'};
} else {	} else {
$next_url='/adm/roles?selectrole=1&'.&escape($data{'role'}).'=1';	if ($data{'lti.login'}) {
if ($data{'origurl'} ne '') {	$next_url='/adm/roles?selectrole=1&'.&escape($data{'role'}).'=1';
$next_url .= '&orgurl='.&escape($data{'origurl'});	if ($data{'origurl'} ne '') {
	$next_url .= '&orgurl='.&escape($data{'origurl'});
	}
	} else {
	$next_url='/adm/roles?selectrole=1&'.&escape($data{'role'}).'=1';
	if ($data{'origurl'} ne '') {
	$next_url .= '&orgurl='.&escape($data{'origurl'});
	}
}	}
}	}
if ($data{'lti.login'}) {	if ($data{'lti.login'}) {
if (($data{'origurl'} =~ m{/default_\d+\.sequence$}) \|\|	if (($data{'origurl'} =~ m{/default_\d+\.sequence$}) \|\|
($data{'origurl'} =~ m{^/res/.+\.sequence$})) {	($data{'origurl'} =~ m{^/res/.+\.sequence$})) {
$next_url .= '&navmap=1';	if ($reuse_session) {
	$next_url .= '&navmap=1';
	} else {
	$next_url .= '&navmap=1';
	}
}	}
}	}
if ($reuse_session) {	if ($reuse_session) {