loncom/auth/migrateuser.pm - diff

Return to migrateuser.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.25.2.5.2.2, 2022/02/07 12:05:05	version 1.25.2.5.2.4, 2022/02/24 14:42:06
Line 375 sub handler {	Line 375 sub handler {
$handle);	$handle);
my $checklaunch;	my $checklaunch;
if ($data{'origurl'} =~ m{^/tiny/$match_domain/\w+$}) {	if ($data{'origurl'} =~ m{^/tiny/$match_domain/\w+$}) {
if ($env{'request.linkprot'} ne '') {	unless ($env{'request.linkprot'} eq $data{'linkprot'}) {
unless ($env{'request.linkprot'} eq $data{'linkprot'}) {	$checklaunch = 1;
$checklaunch = 1;
}
}
if ($env{'request.linkkey'} ne '') {
unless ($env{'request.linkkey'} eq $data{'linkkey'}) {
$checklaunch = 1;
}
}	}
if ($env{'request.deeplink.login'}) {	unless ($env{'request.linkkey'} eq $data{'linkkey'}) {
unless ($env{'request.deeplink.login'} eq $data{'deeplink.login'}) {	$checklaunch = 1;
$checklaunch = 1;	}
}	unless ($env{'request.deeplink.login'} eq $data{'deeplink.login'}) {
	$checklaunch = 1;
}	}
}	}
if ($data{'linkprot'} ne '') {	if ($data{'linkprot'} ne '') {
Line 458 sub handler {	Line 452 sub handler {
}	}
if ($data{'deeplink.login'}) {	if ($data{'deeplink.login'}) {
&Apache::lonnet::appenv({'request.deeplink.login' => $data{'deeplink.login'}});	&Apache::lonnet::appenv({'request.deeplink.login' => $data{'deeplink.login'}});
	if ($env{'environment.remote'} eq 'on') {
	&Apache::lonnet::appenv({'environment.remote' => 'off'});
	}
}	}
if ($data{'origurl'} ne '') {	if ($data{'origurl'} ne '') {
my $dest = $data{'origurl'};	my $dest = $data{'origurl'};