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

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

version 1.20, 2023/06/04 00:36:18 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});
Removed from v.1.20  
changed lines
  Added in v.1.21

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