version 1.9, 2022/05/24 16:23:04
|
version 1.10, 2022/05/25 18:03:43
|
Line 256 sub launch_check {
|
Line 256 sub launch_check {
|
my %link_info = &Apache::lonnet::tmpget($env{'form.ttoken'}); |
my %link_info = &Apache::lonnet::tmpget($env{'form.ttoken'}); |
&Apache::lonnet::tmpdel($env{'form.ttoken'}); |
&Apache::lonnet::tmpdel($env{'form.ttoken'}); |
delete($env{'form.ttoken'}); |
delete($env{'form.ttoken'}); |
|
if ($link_info{'ltoken'}) { |
|
unless (($link_info{'linkprot'}) || ($link_info{'linkkey'} ne '')) { |
|
my %ltoken_info = &Apache::lonnet::tmpget($link_info{'ltoken'}); |
|
if ($ltoken_info{'linkprot'}) { |
|
$link_info{'linkprot'} = $ltoken_info{'linkprot'}; |
|
} elsif ($ltoken_info{'linkkey'} ne '') { |
|
$link_info{'linkkey'} = $ltoken_info{'linkkey'}; |
|
} |
|
} |
|
&Apache::lonnet::tmpdel($env{'form.ltoken'}); |
|
delete($env{'form.ltoken'}); |
|
} |
if ($link_info{'linkprot'}) { |
if ($link_info{'linkprot'}) { |
($linkprotector,$linkproturi) = split(/:/,$link_info{'linkprot'},2); |
($linkprotector,$linkproturi) = split(/:/,$link_info{'linkprot'},2); |
if ($env{'user.linkprotector'}) { |
if ($env{'user.linkprotector'}) { |
Line 342 sub launch_check {
|
Line 354 sub launch_check {
|
if ($disallow) { |
if ($disallow) { |
if ($currdeeplinklogin eq $linkuri) { |
if ($currdeeplinklogin eq $linkuri) { |
&Apache::lonnet::delenv('request.deeplink.login'); |
&Apache::lonnet::delenv('request.deeplink.login'); |
|
if ($env{'request.deeplink.target'} ne '') { |
|
&Apache::lonnet::delenv('request.deeplink.target'); |
|
} |
} |
} |
} else { |
} else { |
unless ($currdeeplinklogin eq $linkuri) { |
unless ($currdeeplinklogin eq $linkuri) { |
Line 362 sub launch_check {
|
Line 377 sub launch_check {
|
&Apache::lonnet::appenv({'request.deeplink.login' => $linkuri}); |
&Apache::lonnet::appenv({'request.deeplink.login' => $linkuri}); |
if ($target ne '') { |
if ($target ne '') { |
&Apache::lonnet::appenv({'request.deeplink.target' => $target}); |
&Apache::lonnet::appenv({'request.deeplink.target' => $target}); |
|
} elsif ($env{'request.deeplink.target'} ne '') { |
|
&Apache::lonnet::delenv('request.deeplink.target'); |
} |
} |
} |
} |
} else { |
} else { |
Line 376 sub launch_check {
|
Line 393 sub launch_check {
|
&Apache::lonnet::delenv({'request.linkkey'}); |
&Apache::lonnet::delenv({'request.linkkey'}); |
} |
} |
&Apache::lonnet::appenv({'request.deeplink.login' => $linkuri}); |
&Apache::lonnet::appenv({'request.deeplink.login' => $linkuri}); |
|
if ($env{'request.deeplink.target'} ne '') { |
|
&Apache::lonnet::delenv('request.deeplink.target'); |
|
} |
} |
} |
return $newlauncher; |
return $newlauncher; |
} |
} |