loncom/auth/migrateuser.pm - diff

Return to migrateuser.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.32, 2018/05/08 15:44:11	version 1.33, 2018/07/01 00:03:42
Line 483 sub handler {	Line 483 sub handler {
return OK;	return OK;
}	}

my $next_url='/adm/roles?selectrole=1&'.&escape($data{'role'}).'=1';	my $next_url='/adm/roles?selectrole=1&'.&escape($data{'role'}).'=1';
if ($data{'origurl'} ne '') {	if ($data{'origurl'} ne '') {
$next_url .= '&orgurl='.&escape($data{'origurl'});	$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';	$next_url .= '&navmap=1';
}	}
}	}
}	}