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

Diff for /loncom/auth/lonauth.pm between versions 1.149 and 1.152

version 1.149, 2018/03/23 01:01:29 version 1.152, 2018/05/08 15:44:11
Line 106  sub success { Line 106  sub success {
                 $r->headers_out->add('Set-cookie' => $defaultcookie);                  $r->headers_out->add('Set-cookie' => $defaultcookie);
             }              }
             $r->send_http_header;              $r->send_http_header;
               if (ref($form) eq 'HASH') {
                   $form->{'lti.reqcrs'} = $env{'request.lti.reqcrs'};
                   $form->{'lti.reqrole'} = $env{'request.lti.reqrole'};
                   $form->{'lti.sourcecrs'} = $env{'request.lti.sourcecrs'};
               }
             &Apache::ltiauth::lti_reqcrs($r,$domain,$form,$username,$domain);              &Apache::ltiauth::lti_reqcrs($r,$domain,$form,$username,$domain);
             return;              return;
         }          }
Line 160  sub success { Line 165  sub success {
         $destination .= 'source=login';          $destination .= 'source=login';
     }      }
   
     my $windowinfo = Apache::lonhtmlcommon::scripttag('self.name="loncapaclient";');      my $windowname = 'loncapaclient';
       if ($env{'request.lti.login'}) {
           $windowname .= 'lti';
       }
       my $windowinfo = Apache::lonhtmlcommon::scripttag('self.name="'.$windowname.'";');
     my $header = '<meta HTTP-EQUIV="Refresh" CONTENT="0; url='.$destination.'" />';      my $header = '<meta HTTP-EQUIV="Refresh" CONTENT="0; url='.$destination.'" />';
     my $brcrum = [{'href' => '',      my $brcrum = [{'href' => '',
                    'text' => 'Successful Login'},];                     'text' => 'Successful Login'},];
Line 198  sub success { Line 207  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.149  
changed lines
  Added in v.1.152

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