|
version 1.176, 2022/06/30 21:04:13
|
version 1.177, 2022/08/24 20:58:50
|
|
Line 47 use CGI::Cookie();
|
Line 47 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,$skipcritical,$cid,$expirepub) = @_;
|
$form,$skipcritical,$cid,$expirepub,$write_to_opener) = @_;
|
|
|
|
| # ------------------------------------------------------------ Get cookie ready
|
# ------------------------------------------------------------ Get cookie ready
|
| my $cookie =
|
my $cookie =
|
|
Line 280 ENDJS
|
Line 280 ENDJS
|
| }
|
}
|
| $start_page=&Apache::loncommon::start_page('',$js,$args);
|
$start_page=&Apache::loncommon::start_page('',$js,$args);
|
| } else {
|
} else {
|
| $args->{'redirect'} = [0,$destination];
|
$args->{'redirect'} = [0,$destination,'',$write_to_opener];
|
| $start_page=&Apache::loncommon::start_page('Successful Login',
|
$start_page=&Apache::loncommon::start_page('Successful Login',
|
| $js,$args);
|
$js,$args);
|
| unless ($env{'request.linkprot'}) {
|
unless ($env{'request.linkprot'}) {
|
![[BACK]](/icons/back.gif){kind=icon}
Return to lonauth.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / auth