version 1.8.2.5, 2023/07/05 19:20:19
|
version 1.21, 2024/02/09 20:08:16
|
Line 308 sub handler {
|
Line 308 sub handler {
|
|
|
sub launch_check { |
sub launch_check { |
my ($linkuri,$symb) = @_; |
my ($linkuri,$symb) = @_; |
my ($linkprotector,$linkproturi,$linkprotexit,$linkprotpbid,$linkprotpburl,$linkkey,$newlauncher); |
my ($linkprotector,$linkproturi,$linkprotexit,$linkprotpbid,$linkprotpburl, |
|
$linkkey,$newlauncher,$prevlaunch); |
if ($env{'form.ttoken'}) { |
if ($env{'form.ttoken'}) { |
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'}); |
Line 380 sub launch_check {
|
Line 381 sub launch_check {
|
if ($link_info{'checklaunch'}) { |
if ($link_info{'checklaunch'}) { |
$newlauncher = 1; |
$newlauncher = 1; |
} |
} |
|
if ($link_info{'prevlaunch'} ne '') { |
|
$prevlaunch = $link_info{'prevlaunch'}; |
|
} |
} |
} |
my $currdeeplinklogin = $env{'request.deeplink.login'}; |
my $currdeeplinklogin = $env{'request.deeplink.login'}; |
my $deeplink; |
my $deeplink; |
Line 436 sub launch_check {
|
Line 440 sub launch_check {
|
} |
} |
} |
} |
} else { |
} else { |
unless ($currdeeplinklogin eq $linkuri) { |
if (($currdeeplinklogin ne $linkuri) || |
|
(($prevlaunch ne '') && ($currdeeplinklogin ne $prevlaunch))) { |
if (($linkprotector) || ($linkkey ne '')) { |
if (($linkprotector) || ($linkkey ne '')) { |
if ($linkprotector) { |
if ($linkprotector) { |
&Apache::lonnet::appenv({'request.linkprot' => $linkprotector.':'.$linkproturi}); |
&Apache::lonnet::appenv({'request.linkprot' => $linkprotector.':'.$linkproturi}); |