version 1.8.2.5, 2023/07/05 19:20:19
|
version 1.8.2.6, 2024/02/10 14:24:46
|
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 438 sub launch_check {
|
Line 442 sub launch_check {
|
} else { |
} else { |
unless ($currdeeplinklogin eq $linkuri) { |
unless ($currdeeplinklogin eq $linkuri) { |
if (($linkprotector) || ($linkkey ne '')) { |
if (($linkprotector) || ($linkkey ne '')) { |
if ($linkprotector) { |
$newlauncher = 1; |
&Apache::lonnet::appenv({'request.linkprot' => $linkprotector.':'.$linkproturi}); |
} |
} elsif ($env{'request.linkprot'}) { |
} |
&Apache::lonnet::delenv('request.linkprot'); |
if ($linkprotector) { |
} |
&Apache::lonnet::appenv({'request.linkprot' => $linkprotector.':'.$linkproturi}); |
|
} elsif ($env{'request.linkprot'}) { |
|
&Apache::lonnet::delenv('request.linkprot'); |
|
} |
|
if ($linkkey ne '') { |
|
&Apache::lonnet::appenv({'request.linkkey' => $linkkey}); |
|
} elsif ($env{'request.linkkey'} ne '') { |
|
&Apache::lonnet::delenv('request.linkkey'); |
|
} |
|
if (($linkprotector) || ($linkkey ne '')) { |
|
if ($linkprotexit ne $env{'request.linkprotexit'}) { |
if ($linkprotexit) { |
if ($linkprotexit) { |
&Apache::lonnet::appenv({'request.linkprotexit' => $linkprotexit}); |
&Apache::lonnet::appenv({'request.linkprotexit' => $linkprotexit}); |
} elsif ($env{'request.linkprotexit'}) { |
} elsif ($env{'request.linkprotexit'}) { |
&Apache::lonnet::delenv('request.linkprotexit'); |
&Apache::lonnet::delenv('request.linkprotexit'); |
} |
} |
|
} |
|
if ($linkprotpbid ne $env{'request.linkprotpbid'}) { |
if ($linkprotpbid) { |
if ($linkprotpbid) { |
&Apache::lonnet::appenv({'request.linkprotpbid' => $linkprotpbid}); |
&Apache::lonnet::appenv({'request.linkprotpbid' => $linkprotpbid}); |
} elsif ($env{'request.linkprotpbid'}) { |
} elsif ($env{'request.linkprotpbid'}) { |
&Apache::lonnet::delenv('request.linkprotpbid'); |
&Apache::lonnet::delenv('request.linkprotpbid'); |
} |
} |
|
} |
|
if ($linkprotpburl ne $env{'request.linkprotpburl'}) { |
if ($linkprotpburl) { |
if ($linkprotpburl) { |
&Apache::lonnet::appenv({'request.linkprotpburl' => $linkprotpburl}); |
&Apache::lonnet::appenv({'request.linkprotpburl' => $linkprotpburl}); |
} elsif ($env{'request.linkprotpburl'}) { |
} elsif ($env{'request.linkprotpburl'}) { |
&Apache::lonnet::delenv('request.linkprotpburl'); |
&Apache::lonnet::delenv('request.linkprotpburl'); |
} |
} |
if ($linkkey ne '') { |
} |
&Apache::lonnet::appenv({'request.linkkey' => $linkkey}); |
} elsif ($prevlaunch) { |
} elsif ($env{'request.linkkey'} ne '') { |
foreach my $requestkey ('linkprotpbid','linkprotpburl','linkprotexit') { |
&Apache::lonnet::delenv('request.linkkey'); |
if ($env{"request.$requestkey"}) { |
|
&Apache::lonnet::delenv("request.$requestkey"); |
} |
} |
$newlauncher = 1; |
|
} |
} |
} |
} |
&Apache::lonnet::appenv({'request.deeplink.login' => $linkuri}); |
&Apache::lonnet::appenv({'request.deeplink.login' => $linkuri}); |