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

Diff for /loncom/auth/lonauth.pm between versions 1.166 and 1.167

version 1.166, 2021/08/10 15:28:13 version 1.167, 2021/10/26 15:10:34
Line 709  sub handler { Line 709  sub handler {
             }              }
             if ($form{'linkprot'}) {              if ($form{'linkprot'}) {
                 $env{'request.linkprot'} = $form{'linkprot'};                  $env{'request.linkprot'} = $form{'linkprot'};
             } elsif ($form{'linkkey'}) {              } elsif ($form{'linkkey'} ne '') {
                 $env{'request.linkkey'} = $form{'linkkey'};                  $env{'request.linkkey'} = $form{'linkkey'};
             }              }
             if ($form{'firsturl'} =~ m{^/tiny/$match_domain/\w+$}) {              if ($form{'firsturl'} =~ m{^/tiny/$match_domain/\w+$}) {
Line 740  sub handler { Line 740  sub handler {
                 }                  }
                 if ($form{'linkprot'}) {                  if ($form{'linkprot'}) {
                     $env{'request.linkprot'} = $form{'linkprot'};                      $env{'request.linkprot'} = $form{'linkprot'};
                 } elsif ($form{'linkkey'}) {                  } elsif ($form{'linkkey'} ne '') {
                     $env{'request.linkkey'} = $form{'linkkey'};                      $env{'request.linkkey'} = $form{'linkkey'};
                 }                  }
                 if ($form{'firsturl'} =~ m{^/tiny/$match_domain/\w+$}) {                  if ($form{'firsturl'} =~ m{^/tiny/$match_domain/\w+$}) {
Line 779  sub handler { Line 779  sub handler {
                          undef,\%form);                           undef,\%form);
                 if ($form{'linkprot'}) {                  if ($form{'linkprot'}) {
                     $env{'request.linkprot'} = $form{'linkprot'};                      $env{'request.linkprot'} = $form{'linkprot'};
                 } elsif ($form{'linkkey'}) {                  } elsif ($form{'linkkey'} ne '') {
                     $env{'request.linkkey'} = $form{'linkkey'};                      $env{'request.linkkey'} = $form{'linkkey'};
                 }                  }
                 if ($form{'firsturl'} =~ m{^/tiny/$match_domain/\w+$}) {                  if ($form{'firsturl'} =~ m{^/tiny/$match_domain/\w+$}) {
Line 799  sub handler { Line 799  sub handler {
                 $extra_env = {'user.linkprotector' => $linkprotector,                  $extra_env = {'user.linkprotector' => $linkprotector,
                               'user.linkproturi'   => $uri};                                'user.linkproturi'   => $uri};
             }              }
         } elsif ($form{'linkkey'}) {          } elsif ($form{'linkkey'} ne '') {
             $extra_env = {'user.deeplinkkey'  => $form{'linkkey'},              $extra_env = {'user.deeplinkkey'  => $form{'linkkey'},
                           'user.keyedlinkuri' => $form{'firsturl'}};                            'user.keyedlinkuri' => $form{'firsturl'}};
         }          }
Line 811  sub handler { Line 811  sub handler {
                 } else {                  } else {
                     $extra_env = {'request.linkprot' => $form{'linkprot'}};                      $extra_env = {'request.linkprot' => $form{'linkprot'}};
                 }                  }
             } elsif ($form{'linkkey'}) {              } 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'} );
                 } else {                  } else {
Line 938  sub check_can_host { Line 938  sub check_can_host {
             if ($form->{'linkprot'}) {              if ($form->{'linkprot'}) {
                 $env{'request.linkprot'} = $form->{'linkprot'};                  $env{'request.linkprot'} = $form->{'linkprot'};
             } elsif ($form->{'firsturl'} =~ m{^/tiny/$match_domain/\w+$}) {              } elsif ($form->{'firsturl'} =~ m{^/tiny/$match_domain/\w+$}) {
                 if ($form->{'linkkey'}) {                  if ($form->{'linkkey'} ne '') {
                     $env{'request.linkkey'} = $form->{'linkkey'};                      $env{'request.linkkey'} = $form->{'linkkey'};
                 }                  }
                 $env{'request.deeplink.login'} = $form->{'firsturl'};                  $env{'request.deeplink.login'} = $form->{'firsturl'};
Removed from v.1.166  
changed lines
  Added in v.1.167

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