loncom/interface/lonmainmenu.pm - diff

Return to lonmainmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.10.2.1, 2013/04/17 01:30:15	version 1.10.2.2.2.1, 2020/05/25 16:11:25
Line 35	Line 35
package Apache::lonmainmenu;	package Apache::lonmainmenu;

use strict;	use strict;
use Apache::Constants qw(:common);	use Apache::Constants qw(:common REDIRECT);
use Apache::loncommon();	use Apache::loncommon();
use Apache::lonnet;	use Apache::lonnet;
use Apache::lonmenu();	use Apache::lonmenu();

sub handler {	sub handler {
my $r = shift;	my $r = shift;

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

&Apache::loncommon::no_cache($r);	&Apache::loncommon::no_cache($r);
&Apache::loncommon::content_type($r,'text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;	$r->send_http_header;