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

Diff for /loncom/auth/lonlogin.pm between versions 1.199 and 1.200

version 1.199, 2022/06/18 02:10:18 version 1.200, 2022/06/26 04:03:47
Line 262  sub handler { Line 262  sub handler {
                 if ($info{'linkprotuser'} ne '') {                  if ($info{'linkprotuser'} ne '') {
                     $linkprotuser = $info{'linkprotuser'};                      $linkprotuser = $info{'linkprotuser'};
                 }                  }
                 my $delete = &Apache::lonnet::tmpdel($env{'form.ltoken'});  
             } else {              } else {
                 $linkprot = $env{'form.linkprot'};                  $linkprot = $env{'form.linkprot'};
                 $linkprotuser = $env{'form.linkprotuser'};                  $linkprotuser = $env{'form.linkprotuser'};
Line 277  sub handler { Line 276  sub handler {
                                           linkprot => $linkprot,                                            linkprot => $linkprot,
                                           linkprotuser => $linkprotuser,                                            linkprotuser => $linkprotuser,
                                        );                                             );    
                       if ($env{'form.ltoken'}) {
                           my $delete = &Apache::lonnet::tmpdel($env{'form.ltoken'});
                       }
                     &Apache::migrateuser::logout($r,$ip,$handle,undef,undef,\%linkprotinfo);                      &Apache::migrateuser::logout($r,$ip,$handle,undef,undef,\%linkprotinfo);
                     return OK;                      return OK;
                 }                  }
Line 325  sub handler { Line 327  sub handler {
                 }                  }
             }              }
         }          }
           if ($env{'form.ltoken'}) {
               my $delete = &Apache::lonnet::tmpdel($env{'form.ltoken'});
           }
  $r->print(   $r->print(
                   $start_page                    $start_page
                  .'<p class="LC_warning">'.&mt('You are already logged in!').'</p>'                   .'<p class="LC_warning">'.&mt('You are already logged in!').'</p>'
Line 1149  sub redirect_page { Line 1154  sub redirect_page {
         $path = '/'.$path;          $path = '/'.$path;
     }      }
     my $url = $protocol.'://'.$hostname.$path;      my $url = $protocol.'://'.$hostname.$path;
       my $args = {};
     if ($env{'form.firsturl'} =~ m{^/tiny/$match_domain/\w+$}) {      if ($env{'form.firsturl'} =~ m{^/tiny/$match_domain/\w+$}) {
         $url = $protocol.'://'.$hostname.$env{'form.firsturl'};          $url = $protocol.'://'.$hostname.$env{'form.firsturl'};
         if (($env{'form.ltoken'}) || ($env{'form.linkprot'} ne '') ||          if (($env{'form.ltoken'}) || ($env{'form.linkprot'} ne '') ||
Line 1157  sub redirect_page { Line 1163  sub redirect_page {
             if ($env{'form.ltoken'}) {              if ($env{'form.ltoken'}) {
                 %link_info = &Apache::lonnet::tmpget($env{'form.ltoken'});                  %link_info = &Apache::lonnet::tmpget($env{'form.ltoken'});
                 &Apache::lonnet::tmpdel($env{'form.ltoken'});                  &Apache::lonnet::tmpdel($env{'form.ltoken'});
                   $args->{'only_body'} = 1;
             } elsif ($env{'form.linkprot'}) {              } elsif ($env{'form.linkprot'}) {
                 $link_info{'linkprot'} = $env{'form.linkprot'};                  $link_info{'linkprot'} = $env{'form.linkprot'};
                 if ($env{'form.linkprotuser'}) {                  if ($env{'form.linkprotuser'}) {
                     $link_info{'linkprotuser'} = $env{'form.linkprotuser'};                      $link_info{'linkprotuser'} = $env{'form.linkprotuser'};
                 }                  }
                   $args->{'only_body'} = 1;
             } elsif ($env{'form.linkkey'} ne '') {              } elsif ($env{'form.linkkey'} ne '') {
                 $link_info{'linkkey'} = $env{'form.linkkey'};                  $link_info{'linkkey'} = $env{'form.linkkey'};
             }              }
Line 1196  sub redirect_page { Line 1204  sub redirect_page {
         }          }
         $url .= $querystring;          $url .= $querystring;
     }      }
     my $start_page = &Apache::loncommon::start_page('Switching Server ...',undef,      $args->{'redirect'} = [0,$url];
                                                     {'redirect' => [0,$url],});      my $start_page = &Apache::loncommon::start_page('Switching Server ...',undef,$args);
     my $end_page   = &Apache::loncommon::end_page();      my $end_page   = &Apache::loncommon::end_page();
     return $start_page.$end_page;      return $start_page.$end_page;
 }  }
Removed from v.1.199  
changed lines
  Added in v.1.200

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