loncom/interface/lonmainmenu.pm - diff

Return to lonmainmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.10.2.2, 2014/05/22 12:47:27	version 1.10.2.2.4.1, 2020/09/08 04:28:39
Line 44 sub handler {	Line 44 sub handler {
my $r = shift;	my $r = shift;

# Check for critical messages and redirect if present.	# Check for critical messages and redirect if present.
my ($redirect,$url) = &Apache::loncommon::critical_redirect(300);	my ($redirect,$url) = &Apache::loncommon::critical_redirect(300,'menu');
if ($redirect) {	if ($redirect) {
&Apache::loncommon::content_type($r,'text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->header_out(Location => $url);	$r->header_out(Location => $url);