loncom/auth/migrateuser.pm - diff

Return to migrateuser.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.68, 2024/02/09 20:08:17	version 1.70, 2024/02/10 14:53:30
Line 842 sub handler {	Line 842 sub handler {
}	}
}	}
if ($data{'deeplink.login'}) {	if ($data{'deeplink.login'}) {
if (($env{'request.deeplink.login'}) && ($env{'request.deeplink.login'} ne $data{'deeplink.login'})) {
$prevlaunch = $env{'request.deeplink.login'};
}
&Apache::lonnet::appenv({'request.deeplink.login' => $data{'deeplink.login'}});	&Apache::lonnet::appenv({'request.deeplink.login' => $data{'deeplink.login'}});
	} elsif ($env{'request.deeplink.login'}) {
	$prevlaunch = $env{'request.deeplink.login'};
}	}
if ($data{'lti.login'}) {	if ($data{'lti.login'}) {
my $needslogout;	my $needslogout;
Line 941 sub handler {	Line 940 sub handler {
$info{'origurl'} = $data{'origurl'};	$info{'origurl'} = $data{'origurl'};
if ($checklaunch) {	if ($checklaunch) {
$info{'checklaunch'} = 1;	$info{'checklaunch'} = 1;
	}
	if ($prevlaunch) {
$info{'prevlaunch'} = $prevlaunch;	$info{'prevlaunch'} = $prevlaunch;
}	}
my $token = &Apache::lonnet::tmpput(\%info,$r->dir_config('lonHostID'),'link');	my $token = &Apache::lonnet::tmpput(\%info,$r->dir_config('lonHostID'),'link');