[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.5 and 1.8.2.6

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});
Removed from v.1.8.2.5  
changed lines
  Added in v.1.8.2.6

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