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

Diff for /loncom/auth/lonauth.pm between versions 1.121.2.24.2.4 and 1.121.2.24.2.5

version 1.121.2.24.2.4, 2022/07/08 15:40:03 version 1.121.2.24.2.5, 2022/08/30 12:10:43
Line 46  use CGI::Cookie(); Line 46  use CGI::Cookie();
 # ------------------------------------------------------------ Successful login  # ------------------------------------------------------------ Successful login
 sub success {  sub success {
     my ($r, $username, $domain, $authhost, $lowerurl, $extra_env,      my ($r, $username, $domain, $authhost, $lowerurl, $extra_env,
  $form,$cid,$expirepub) = @_;   $form,$cid,$expirepub,$write_to_opener) = @_;
   
 # ------------------------------------------------------------ Get cookie ready  # ------------------------------------------------------------ Get cookie ready
     my $cookie =      my $cookie =
Line 178  sub success { Line 178  sub success {
             &Apache::lonnet::appenv({'environment.remote' => 'off'});              &Apache::lonnet::appenv({'environment.remote' => 'off'});
         }          }
     }      }
       my $startupremote;
       if ($write_to_opener) {
           if ($env{'environment.remote'} eq 'on') {
               &Apache::lonnet::appenv({'environment.remote' => 'off'});
           }
           $args->{'redirect'} = [0,$destination,'',$write_to_opener];
       } else {
           $startupremote=&Apache::lonmenu::startupremote($destination);
       }
   
     my $windowinfo=&Apache::lonmenu::open($env{'browser.os'});      my $windowinfo=&Apache::lonmenu::open($env{'browser.os'});
     my $startupremote=&Apache::lonmenu::startupremote($destination);  
     my $remoteinfo=&Apache::lonmenu::load_remote_msg($lowerurl);      my $remoteinfo=&Apache::lonmenu::load_remote_msg($lowerurl);
     my $setflags=&Apache::lonmenu::setflags();      my $setflags=&Apache::lonmenu::setflags();
     my $maincall=&Apache::lonmenu::maincall();      my $maincall=&Apache::lonmenu::maincall();
Line 190  sub success { Line 198  sub success {
   
     my $continuelink;      my $continuelink;
     if ($env{'environment.remote'} eq 'off') {      if ($env{'environment.remote'} eq 'off') {
  $continuelink='<a href="'.$destination.'">'.&mt('Continue').'</a>';          unless ($write_to_opener) {
       $continuelink='<a href="'.$destination.'">'.&mt('Continue').'</a>';
           }
     }      }
 # ------------------------------------------------- Output for successful login  # ------------------------------------------------- Output for successful login
   
Removed from v.1.121.2.24.2.4  
changed lines
  Added in v.1.121.2.24.2.5

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