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

Diff for /loncom/auth/lonlogin.pm between versions 1.158.2.13.2.9 and 1.158.2.13.2.10

version 1.158.2.13.2.9, 2023/02/03 23:11:31 version 1.158.2.13.2.10, 2023/07/05 17:03:27
Line 68  sub handler { Line 68  sub handler {
             $env{'form.ltoken'} = $info{'ltoken'};              $env{'form.ltoken'} = $info{'ltoken'};
         } elsif ($info{'linkprot'}) {          } elsif ($info{'linkprot'}) {
             $env{'form.linkprot'} = $info{'linkprot'};              $env{'form.linkprot'} = $info{'linkprot'};
             foreach my $item ('linkprotuser','linkprotexit') {              foreach my $item ('linkprotuser','linkprotexit','linkprotpbid','linkprotpburl') {
                 if ($info{$item} ne '') {                  if ($info{$item} ne '') {
                     $env{'form.'.$item} = $info{$item};                      $env{'form.'.$item} = $info{$item};
                 }                  }
Line 199  sub handler { Line 199  sub handler {
                     $link_info{'ltoken'} = $env{'form.ltoken'};                      $link_info{'ltoken'} = $env{'form.ltoken'};
                 } elsif ($env{'form.linkprot'}) {                  } elsif ($env{'form.linkprot'}) {
                     $link_info{'linkprot'} = $env{'form.linkprot'};                      $link_info{'linkprot'} = $env{'form.linkprot'};
                     foreach my $item ('linkprotuser','linkprotexit') {                      foreach my $item ('linkprotuser','linkprotexit','linkprotpbid','linkprotpburl') {
                         if ($env{'form.'.$item} ne '') {                          if ($env{'form.'.$item} ne '') {
                             $link_info{$item} = $env{'form.'.$item};                              $link_info{$item} = $env{'form.'.$item};
                         }                          }
Line 277  sub handler { Line 277  sub handler {
             $dest = &HTML::Entities::encode($env{'form.firsturl'},'\'"<>&');              $dest = &HTML::Entities::encode($env{'form.firsturl'},'\'"<>&');
         }          }
         if (($env{'form.ltoken'}) || ($env{'form.linkprot'})) {          if (($env{'form.ltoken'}) || ($env{'form.linkprot'})) {
             my ($linkprot,$linkprotuser,$linkprotexit);              my ($linkprot,$linkprotuser,$linkprotexit,$linkprotpbid,$linkprotpburl);
             if ($env{'form.ltoken'}) {              if ($env{'form.ltoken'}) {
                 my %info = &Apache::lonnet::tmpget($env{'form.ltoken'});                  my %info = &Apache::lonnet::tmpget($env{'form.ltoken'});
                 $linkprot = $info{'linkprot'};                  $linkprot = $info{'linkprot'};
Line 287  sub handler { Line 287  sub handler {
                 if ($info{'linkprotexit'} ne '') {                  if ($info{'linkprotexit'} ne '') {
                     $linkprotexit = $info{'linkprotexit'};                      $linkprotexit = $info{'linkprotexit'};
                 }                  }
                   if ($info{'linkprotpbid'} ne '') {
                       $linkprotpbid = $info{'linkprotpbid'};
                   }
                   if ($info{'linkprotpburl'} ne '') {
                       $linkprotpburl = $info{'linkprotpburl'};
                   }
             } else {              } else {
                 $linkprot = $env{'form.linkprot'};                  $linkprot = $env{'form.linkprot'};
                 $linkprotuser = $env{'form.linkprotuser'};                  $linkprotuser = $env{'form.linkprotuser'};
                 $linkprotexit = $env{'form.linkprotexit'};                  $linkprotexit = $env{'form.linkprotexit'};
                   $linkprotpbid = $env{'form.linkprotpbid'};
                   $linkprotpburl = $env{'form.linkprotpburl'};
             }              }
             if ($linkprot) {              if ($linkprot) {
                 my ($linkprotector,$deeplink) = split(/:/,$linkprot,2);                  my ($linkprotector,$deeplink) = split(/:/,$linkprot,2);
Line 302  sub handler { Line 310  sub handler {
                                           linkprot => $linkprot,                                            linkprot => $linkprot,
                                           linkprotuser => $linkprotuser,                                            linkprotuser => $linkprotuser,
                                           linkprotexit => $linkprotexit,                                            linkprotexit => $linkprotexit,
                                             linkprotpbid => $linkprotpbid,
                                             linkprotpburl => $linkprotpburl,
                                        );                                         );
                     if ($env{'form.ltoken'}) {                      if ($env{'form.ltoken'}) {
                         my $delete = &Apache::lonnet::tmpdel($env{'form.ltoken'});                          my $delete = &Apache::lonnet::tmpdel($env{'form.ltoken'});
Line 493  sub handler { Line 503  sub handler {
   
 # -------------------------------------------------------- Store away log token  # -------------------------------------------------------- Store away log token
     my ($tokenextras,$tokentype,$linkprot_for_login);      my ($tokenextras,$tokentype,$linkprot_for_login);
     my @names = ('role','symb','iptoken','ltoken','linkprotuser','linkprotexit','linkprot','linkkey','display');      my @names = ('role','symb','iptoken','ltoken','linkprotuser','linkprotexit',
                    'linkprot','linkkey','display','linkprotpbid','linkprotpburl');
     foreach my $name (@names) {      foreach my $name (@names) {
         if ($env{'form.'.$name} ne '') {          if ($env{'form.'.$name} ne '') {
             if ($name eq 'ltoken') {              if ($name eq 'ltoken') {
Line 501  sub handler { Line 512  sub handler {
                 if ($info{'linkprot'}) {                  if ($info{'linkprot'}) {
                     $linkprot_for_login = $info{'linkprot'};                      $linkprot_for_login = $info{'linkprot'};
                     $tokenextras .= '&linkprot='.&escape($info{'linkprot'});                      $tokenextras .= '&linkprot='.&escape($info{'linkprot'});
                     foreach my $item ('linkprotuser','linkprotexit') {                      foreach my $item ('linkprotuser','linkprotexit','linkprotpbid','linkprotpburl') {
                         if ($info{$item}) {                          if ($info{$item}) {
                             $tokenextras .= '&'.$item.'='.&escape($info{$item});                              $tokenextras .= '&'.$item.'='.&escape($info{$item});
                         }                          }
Line 1255  sub redirect_page { Line 1266  sub redirect_page {
                 $args->{'only_body'} = 1;                  $args->{'only_body'} = 1;
             } elsif ($env{'form.linkprot'}) {              } elsif ($env{'form.linkprot'}) {
                 $link_info{'linkprot'} = $env{'form.linkprot'};                  $link_info{'linkprot'} = $env{'form.linkprot'};
                 foreach my $item ('linkprotuser','linkprotexit') {                  foreach my $item ('linkprotuser','linkprotexit','linkprotpbid','linkprotpburl') {
                     if ($env{'form.'.$item}) {                      if ($env{'form.'.$item}) {
                         $link_info{$item} = $env{'form.'.$item};                          $link_info{$item} = $env{'form.'.$item};
                     }                      }
Removed from v.1.158.2.13.2.9  
changed lines
  Added in v.1.158.2.13.2.10

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