[BACK]Return to lontiny.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lontiny.pm between versions 1.8.2.6 and 1.20

version 1.8.2.6, 2024/02/10 14:24:46 version 1.20, 2023/06/04 00:36:18
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,      my ($linkprotector,$linkproturi,$linkprotexit,$linkprotpbid,$linkprotpburl,$linkkey,$newlauncher);
         $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 381  sub launch_check { Line 380  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 442  sub launch_check { Line 438  sub launch_check {
         } else {          } else {
             unless ($currdeeplinklogin eq $linkuri) {              unless ($currdeeplinklogin eq $linkuri) {
                 if (($linkprotector) || ($linkkey ne '')) {                  if (($linkprotector) || ($linkkey ne '')) {
                     $newlauncher = 1;                      if ($linkprotector) {
                 }                          &Apache::lonnet::appenv({'request.linkprot' => $linkprotector.':'.$linkproturi});
             }                      } elsif ($env{'request.linkprot'}) {
             if ($linkprotector) {                          &Apache::lonnet::delenv('request.linkprot');
                 &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 '') {
             } elsif ($prevlaunch) {                          &Apache::lonnet::appenv({'request.linkkey' => $linkkey});
                 foreach my $requestkey ('linkprotpbid','linkprotpburl','linkprotexit') {                      } elsif ($env{'request.linkkey'} ne '') {
                     if ($env{"request.$requestkey"}) {                          &Apache::lonnet::delenv('request.linkkey');
                         &Apache::lonnet::delenv("request.$requestkey");  
                     }                      }
                       $newlauncher = 1;
                 }                  }
             }              }
             &Apache::lonnet::appenv({'request.deeplink.login' => $linkuri});              &Apache::lonnet::appenv({'request.deeplink.login' => $linkuri});
Removed from v.1.8.2.6  
changed lines
  Added in v.1.20

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>