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

Diff for /loncom/auth/lonauth.pm between versions 1.150 and 1.151

version 1.150, 2018/04/14 02:30:11 version 1.151, 2018/04/21 21:29:31
Line 202  sub success { Line 202  sub success {
     }      }
     $r->send_http_header;      $r->send_http_header;
   
     my $start_page=&Apache::loncommon::start_page('Successful Login',      my $start_page;
                                                   $header,$args);      if ($env{'request.lti.login'}) {
           $args = {'only_body' => 1,};
           $start_page=&Apache::loncommon::start_page('',$header,$args);
       } else {
           $start_page=&Apache::loncommon::start_page('Successful Login',
                                                      $header,$args);
       }
     my $end_page  =&Apache::loncommon::end_page();      my $end_page  =&Apache::loncommon::end_page();
   
     my $continuelink='<a href="'.$destination.'">'.&mt('Continue').'</a>';      my $continuelink='<a href="'.$destination.'">'.&mt('Continue').'</a>';
   
     my %lt=&Apache::lonlocal::texthash(      my $pagebody;
        'wel' => 'Welcome',      unless ($env{'request.lti.login'}) {
        'pro' => 'Login problems?',          my %lt=&Apache::lonlocal::texthash(
        );             'wel' => 'Welcome',
     my $loginhelp = &loginhelpdisplay($domain);             'pro' => 'Login problems?',
     if ($loginhelp) {            );
         $loginhelp = '<p><a href="'.$loginhelp.'">'.$lt{'pro'}.'</a></p>';          $pagebody = "<h1>$lt{'wel'}</h1>\n".
                       &mt('Welcome to the Learning[_1]Online[_2] Network with CAPA. Please wait while your session is being set up.','<i>','</i>');
           my $loginhelp = &loginhelpdisplay($domain);
           if ($loginhelp) {
               $pagebody .= '<p><a href="'.$loginhelp.'">'.$lt{'pro'}.'</a></p>';
           }
     }      }
   
     my $welcome = &mt('Welcome to the Learning[_1]Online[_2] Network with CAPA. Please wait while your session is being set up.','<i>','</i>');  
     $r->print(<<ENDSUCCESS);      $r->print(<<ENDSUCCESS);
 $start_page  $start_page
 $windowinfo  $windowinfo
 <h1>$lt{'wel'}</h1>  $pagebody
 $welcome  
 $loginhelp  
 $continuelink  $continuelink
 $end_page  $end_page
 ENDSUCCESS  ENDSUCCESS
Removed from v.1.150  
changed lines
  Added in v.1.151

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