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

Diff for /loncom/auth/lonauth.pm between versions 1.178 and 1.179

version 1.178, 2022/09/17 23:38:50 version 1.179, 2023/06/02 01:20:26
Line 192  sub success { Line 192  sub success {
         my %info;          my %info;
         if ($env{'request.linkprot'}) {          if ($env{'request.linkprot'}) {
             $info{'linkprot'} = $env{'request.linkprot'};              $info{'linkprot'} = $env{'request.linkprot'};
             foreach my $item ('linkprotuser','linkprotexit') {              foreach my $item ('linkprotuser','linkprotexit','linkprotpbid','linkprotpburl') {
                 if ($form->{$item}) {                  if ($form->{$item}) {
                     $info{$item} = $form->{$item};                      $info{$item} = $form->{$item};
                 }                  }
Line 377  sub failed { Line 377  sub failed {
             my %info = (              my %info = (
                          'linkprot' => $form->{'linkprot'},                           'linkprot' => $form->{'linkprot'},
                        );                         );
             foreach my $item ('linkprotuser','linkprotexit') {              foreach my $item ('linkprotuser','linkprotexit','linkprotpbid','linkprotpburl') {
                 if ($form->{$item} ne '') {                  if ($form->{$item} ne '') {
                     $info{$item} = $form->{$item};                      $info{$item} = $form->{$item};
                 }                  }
Line 823  sub handler { Line 823  sub handler {
             }              }
             if ($form{'linkprot'}) {              if ($form{'linkprot'}) {
                 $env{'request.linkprot'} = $form{'linkprot'};                  $env{'request.linkprot'} = $form{'linkprot'};
                 foreach my $item ('linkprotuser','linkprotexit') {                  foreach my $item ('linkprotuser','linkprotexit','linkprotpbid','linkprotpburl') {
                     if ($form{$item}) {                      if ($form{$item}) {
                         $env{'request.'.$item} = $form{$item};                          $env{'request.'.$item} = $form{$item};
                     }                      }
Line 864  sub handler { Line 864  sub handler {
                 }                  }
                 if ($form{'linkprot'}) {                  if ($form{'linkprot'}) {
                     $env{'request.linkprot'} = $form{'linkprot'};                      $env{'request.linkprot'} = $form{'linkprot'};
                     foreach my $item ('linkprotuser','linkprotexit') {                      foreach my $item ('linkprotuser','linkprotexit','linkprotpbid','linkprotpburl') {
                         if ($form{$item}) {                          if ($form{$item}) {
                             $env{'request.'.$item} = $form{$item};                              $env{'request.'.$item} = $form{$item};
                         }                          }
Line 973  sub handler { Line 973  sub handler {
                 if ($form{'linkprotexit'}) {                  if ($form{'linkprotexit'}) {
                     $extra_env->{'request.linkprotexit'} = $form{'linkprotexit'};                      $extra_env->{'request.linkprotexit'} = $form{'linkprotexit'};
                 }                  }
                   if ($form{'linkprotpbid'}) {
                       $extra_env->{'request.linkprotpbid'} = $form{'linkprotpbid'};
                   }
                   if ($form{'linkprotpburl'}) {
                       $extra_env->{'request.linkprotpburl'} = $form{'linkprotpburl'};
                   }
             } elsif ($form{'linkkey'} ne '') {              } elsif ($form{'linkkey'} ne '') {
                 if (ref($extra_env) eq 'HASH') {                  if (ref($extra_env) eq 'HASH') {
                     %{$extra_env} = ( %{$extra_env}, 'request.linkkey' => $form{'linkkey'} );                      %{$extra_env} = ( %{$extra_env}, 'request.linkkey' => $form{'linkkey'} );
Line 1061  sub set_retry_token { Line 1067  sub set_retry_token {
     my ($form,$lonhost,$querystr) = @_;      my ($form,$lonhost,$querystr) = @_;
     if (ref($form) eq 'HASH') {      if (ref($form) eq 'HASH') {
         my ($firsturl,$token,$extras,@names);          my ($firsturl,$token,$extras,@names);
         @names = ('role','symb','linkprotuser','linkprotexit','linkprot','linkkey','iptoken');          @names = ('role','symb','linkprotuser','linkprotexit','linkprot','linkkey','iptoken','linkprotpbid','linkprotpburl');
         foreach my $name (@names) {          foreach my $name (@names) {
             if ($form->{$name} ne '') {              if ($form->{$name} ne '') {
                 $extras .= '&'.$name.'='.&escape($form->{$name});                  $extras .= '&'.$name.'='.&escape($form->{$name});
Removed from v.1.178  
changed lines
  Added in v.1.179

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