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

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

version 1.21, 2024/02/09 20:08:16 version 1.22, 2024/02/10 14:12:32
Line 440  sub launch_check { Line 440  sub launch_check {
                 }                  }
             }              }
         } else {          } else {
             if (($currdeeplinklogin ne $linkuri) ||              unless ($currdeeplinklogin eq $linkuri) {
                 (($prevlaunch ne '') && ($currdeeplinklogin ne $prevlaunch))) {  
                 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.21  
changed lines
  Added in v.1.22

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