|
version 1.131, 2014/01/05 11:17:16
|
version 1.133, 2014/04/06 13:40:19
|
|
Line 196 sub failed {
|
Line 196 sub failed {
|
| my $end_page = &Apache::loncommon::end_page(); |
my $end_page = &Apache::loncommon::end_page(); |
| &Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
| $r->send_http_header; |
$r->send_http_header; |
| |
my @actions = |
| |
(&mt('Please [_1]log in again[_2].','<a href="'.$retry.'">','</a>')); |
| my $loginhelp = &loginhelpdisplay($udom); |
my $loginhelp = &loginhelpdisplay($udom); |
| if ($loginhelp) { |
if ($loginhelp) { |
| $loginhelp = '<p><a href="'.$loginhelp.'">'.&mt('Login problems?').'</a></p>'; |
push(@actions, '<a href="'.$loginhelp.'">'.&mt('Login problems?').'</a>'); |
| } |
} |
| |
#FIXME: link to helpdesk might be added here |
| |
|
| $r->print( |
$r->print( |
| $start_page |
$start_page |
| .'<h1>'.&mt('Sorry ...').'</h1>' |
.'<h2>'.&mt('Sorry ...').'</h2>' |
| .'<p class="LC_warning">'.&mt($message).'</p>' |
.&Apache::lonhtmlcommon::confirm_success(&mt($message),1).'<br /><br />' |
| .'<p>'.&mt('Please [_1]log in again[_2].','<a href="'.$retry.'">','</a>') |
.&Apache::lonhtmlcommon::actionbox(\@actions) |
| .'</p>' |
|
| .$loginhelp |
|
| .$end_page |
.$end_page |
| ); |
); |
| } |
} |
|
Line 310 sub handler {
|
Line 311 sub handler {
|
| my %sessiondata; |
my %sessiondata; |
| if ($form{'iptoken'}) { |
if ($form{'iptoken'}) { |
| %sessiondata = &Apache::lonnet::tmpget($form{'iptoken'}); |
%sessiondata = &Apache::lonnet::tmpget($form{'iptoken'}); |
| my $delete = &Apache::lonnet::tmpdel($form{'token'}); |
my $delete = &Apache::lonnet::tmpdel($form{'iptoken'}); |
| } |
} |
| |
|
| if (($tmpinfo=~/^error/) || ($tmpinfo eq 'con_lost') || |
if (($tmpinfo=~/^error/) || ($tmpinfo eq 'con_lost') || |
![[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