loncom/auth/migrateuser.pm - diff

Return to migrateuser.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.29, 2018/04/14 02:30:11	version 1.30, 2018/04/15 00:14:19
Line 483 sub handler {	Line 483 sub handler {
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{'origurl'} =~ m{/default_\d+\.sequence$}) {
	$next_url .= '&navmap=1';
	}
	}
}	}
&Apache::lonauth::success($r,$data{'username'},$data{'domain'},$home,	&Apache::lonauth::success($r,$data{'username'},$data{'domain'},$home,
$next_url,$extra_env,\%form);	$next_url,$extra_env,\%form);