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

Diff for /loncom/auth/lonauth.pm between versions 1.174 and 1.175

version 1.174, 2022/06/18 02:10:18 version 1.175, 2022/06/26 04:03:47
Line 179  sub success { Line 179  sub success {
         $destination .= 'source=login';          $destination .= 'source=login';
     }      }
   
       my $brcrum = [{'href' => '',
                      'text' => 'Successful Login'},];
       my $args = {'no_inline_link' => 1,
                   'bread_crumbs' => $brcrum,};
     if (($env{'request.deeplink.login'} eq $lowerurl) &&      if (($env{'request.deeplink.login'} eq $lowerurl) &&
         (($env{'request.linkprot'}) || ($env{'request.linkkey'} ne ''))) {          (($env{'request.linkprot'}) || ($env{'request.linkkey'} ne ''))) {
         my %info;          my %info;
         if ($env{'request.linkprot'}) {          if ($env{'request.linkprot'}) {
             $info{'linkprot'} = $env{'request.linkprot'};              $info{'linkprot'} = $env{'request.linkprot'};
               if ($form->{'linkprotuser'}) {
                   $info{'linkprotuser'} = $form->{'linkprotuser'};
               }
               $args = {'only_body' => 1,};
         } elsif ($env{'request.linkkey'} ne '') {          } elsif ($env{'request.linkkey'} ne '') {
             $info{'linkkey'} = $env{'request.linkkey'};              $info{'linkkey'} = $env{'request.linkkey'};
         }          }
Line 200  sub success { Line 208  sub success {
         $windowname .= 'lti';          $windowname .= 'lti';
     }      }
     my $windowinfo = Apache::lonhtmlcommon::scripttag('self.name="'.$windowname.'";');      my $windowinfo = Apache::lonhtmlcommon::scripttag('self.name="'.$windowname.'";');
     my $brcrum = [{'href' => '',  
                    'text' => 'Successful Login'},];  
     my $args = {'bread_crumbs' => $brcrum,};  
     unless ((defined($form->{role})) || (defined($form->{symb}))) {      unless ((defined($form->{role})) || (defined($form->{symb}))) {
         my $update=$env{'user.update.time'};          my $update=$env{'user.update.time'};
         if (!$update) {          if (!$update) {
Line 276  ENDJS Line 281  ENDJS
         $args->{'redirect'} = [0,$destination];          $args->{'redirect'} = [0,$destination];
         $start_page=&Apache::loncommon::start_page('Successful Login',          $start_page=&Apache::loncommon::start_page('Successful Login',
                                                    $js,$args);                                                     $js,$args);
           unless ($env{'request.linkprot'}) {
         my %lt=&Apache::lonlocal::texthash(              my %lt=&Apache::lonlocal::texthash(
            'wel' => 'Welcome',                     'wel' => 'Welcome',
            'pro' => 'Login problems?',                 'pro' => 'Login problems?',
           );            );
         $pagebody = "<h1>$lt{'wel'}</h1>\n".              $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>');                          &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);              my $loginhelp = &loginhelpdisplay($domain);
         if ($loginhelp) {              if ($loginhelp) {
             $pagebody .= '<p><a href="'.$loginhelp.'">'.$lt{'pro'}.'</a></p>';                  $pagebody .= '<p><a href="'.$loginhelp.'">'.$lt{'pro'}.'</a></p>';
               }
         }          }
     }      }
     $end_page = &Apache::loncommon::end_page();      $end_page = &Apache::loncommon::end_page();
     $r->print(<<ENDSUCCESS);      $r->print(<<ENDSUCCESS);
 $start_page  $start_page
Line 809  sub handler { Line 815  sub handler {
             }              }
             if ($form{'linkprot'}) {              if ($form{'linkprot'}) {
                 $env{'request.linkprot'} = $form{'linkprot'};                  $env{'request.linkprot'} = $form{'linkprot'};
                   if ($form{'linkprotuser'}) {
                       $env{'request.linkprotuser'} = $form{'linkprotuser'};
                   }
             } elsif ($form{'linkkey'} ne '') {              } elsif ($form{'linkkey'} ne '') {
                 $env{'request.linkkey'} = $form{'linkkey'};                  $env{'request.linkkey'} = $form{'linkkey'};
             }              }
Line 840  sub handler { Line 849  sub handler {
                 }                  }
                 if ($form{'linkprot'}) {                  if ($form{'linkprot'}) {
                     $env{'request.linkprot'} = $form{'linkprot'};                      $env{'request.linkprot'} = $form{'linkprot'};
                       if ($form{'linkprotuser'}) {
                           $env{'request.linkprotuser'} = $form{'linkprotuser'};
                       }
                 } elsif ($form{'linkkey'} ne '') {                  } elsif ($form{'linkkey'} ne '') {
                     $env{'request.linkkey'} = $form{'linkkey'};                      $env{'request.linkkey'} = $form{'linkkey'};
                 }                  }
Removed from v.1.174  
changed lines
  Added in v.1.175

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