|
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'};
|
| }
|
}
|
![[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