loncom/auth/lonauth.pm - diff

Return to lonauth.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.131, 2014/01/05 11:17:16	version 1.132, 2014/01/22 18:00:37
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
);	);
}	}