loncom/interface/lonmainmenu.pm - diff

Return to lonmainmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.10, 2012/05/15 01:35:29	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;
Line 51 sub handler {	Line 60 sub handler {
# temporarily set interface to "faketextual" and remote to "off", which renders	# temporarily set interface to "faketextual" and remote to "off", which renders
# the main menu	# the main menu
$env{'browser.interface'}='faketextual';	$env{'browser.interface'}='faketextual';
	$env{'environment.remote'}='off';
$r->print(&Apache::loncommon::start_page( 'Main Menu',	$r->print(&Apache::loncommon::start_page( 'Main Menu',
undef,	undef,
{'bread_crumbs' => 1}));	{'bread_crumbs' => 1}));