loncom/auth/lonauth.pm - diff

Return to lonauth.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.122, 2012/08/27 00:52:45	version 1.123, 2012/08/27 02:02:20
Line 173 sub failed {	Line 173 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 $loginhelp = &loginhelpdisplay($form->{'udom'});
	if ($loginhelp) {
	$loginhelp = '<p><a href="'.$loginhelp.'">'.&mt('Login problems?').'</a></p>';
	}

$r->print(	$r->print(
$start_page	$start_page
.'<h1>'.&mt('Sorry ...').'</h1>'	.'<h1>'.&mt('Sorry ...').'</h1>'
.'<p class="LC_warning">'.&mt($message).'</p>'	.'<p class="LC_warning">'.&mt($message).'</p>'
.'<p>'.&mt('Please [_1]log in again[_2].','<a href="'.$retry.'">','</a>')	.'<p>'.&mt('Please [_1]log in again[_2].','<a href="'.$retry.'">','</a>')
.'</p>'	.'</p>'
.'<p><a href="/adm/loginproblems.html">'.&mt('Login problems?').'</a></p>'	.$loginhelp
.$end_page	.$end_page
);	);
}	}