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

Diff for /loncom/auth/lonrelaunch.pm between versions 1.3 and 1.4

version 1.3, 2022/06/26 18:17:01 version 1.4, 2022/08/24 20:58:50
Line 91  sub handler { Line 91  sub handler {
                 $url .= '?ltoken='.$env{'form.rtoken'};                  $url .= '?ltoken='.$env{'form.rtoken'};
                 $r->print(&Apache::loncommon::start_page('Updating session',undef,                  $r->print(&Apache::loncommon::start_page('Updating session',undef,
                                                          {'only_body'    => 1,                                                           {'only_body'    => 1,
                                                           'redirect'     => [1,$url]}).                                                            'redirect'     => [1,$url,'',$data{'lcssowin'}]}).
                           '<p>'.&mt('Updating old session information').'</p>'.                            '<p>'.&mt('Updating old session information').'</p>'.
                           &Apache::loncommon::end_page());                            &Apache::loncommon::end_page());
                 return OK;                  return OK;
             }              }
         }          }
     }      }
       my $args = {'only_body' => 1};
       if ($data{'lcssowin'}) {
           $args->{'redirect'} = [1,$data{'origurl'},'',$data{'lcssowin'}];
       }
     if ($data{'linkprot'}) {      if ($data{'linkprot'}) {
         $r->print(&Apache::loncommon::start_page('Updating session',undef,{'only_body' => 1}));          $r->print(&Apache::loncommon::start_page('Updating session',undef,$args));
         if ($data{'linkprotuser'} ne '') {          if ($data{'linkprotuser'} ne '') {
             $r->print(&mt('Although your credentials were authenticated, the username you entered did not match what was expected [_1] from the link you followed',"($data{'linkprotuser'})"));              $r->print(&mt('Although your credentials were authenticated, the username you entered did not match what was expected [_1] from the link you followed',"($data{'linkprotuser'})"));
         } else {          } else {
             $r->print(&mt('Expired any existing session'));              $r->print(&mt('Expired any existing session'));
         }          }
     } else {      } else {
         $r->print(&Apache::loncommon::start_page('Session removed',undef,{'only_body' => 1}));          $r->print(&Apache::loncommon::start_page('Session removed',undef,$args));
         $r->print(&mt('Expired any existing session'));          $r->print(&mt('Expired any existing session'));
     }      }
     $r->print(&Apache::loncommon::end_page());      $r->print(&Apache::loncommon::end_page());
Removed from v.1.3  
changed lines
  Added in v.1.4

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