loncom/interface/lonmainmenu.pm - diff

Return to lonmainmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.6, 2009/05/16 21:50:52	version 1.8, 2009/07/13 08:24:21
Line 52 sub handler {	Line 52 sub handler {
return OK if $r->header_only;	return OK if $r->header_only;

my $form;	my $form;
if ($env{'environment.remote'} ne 'off' &&	if ($env{'environment.remote'} ne 'off') {
$env{'browser.interface'} ne 'textual') {
$form=&Apache::lonmenu::serverform();	$form=&Apache::lonmenu::serverform();
}	}

Line 67 $utility	Line 66 $utility
ENDSCRIPT	ENDSCRIPT
}	}
# ---- Print the screen, pretend to be in text mode to generate text-based menu	# ---- Print the screen, pretend to be in text mode to generate text-based menu
unless ($env{'browser.interface'} eq 'textual') {	# temporarily set interface to "faketextual" and remote to "off", which renders
$env{'browser.interface'}='faketextual';	# the main menu
$env{'environment.remote'}='off';	$env{'browser.interface'}='faketextual';
}	$env{'environment.remote'}='off';

$r->print(&Apache::loncommon::start_page( 'Main Menu',	$r->print(&Apache::loncommon::start_page( 'Main Menu',
$script_tag,	$script_tag,
{'bread_crumbs' => 1}));	{'bread_crumbs' => 1}));