loncom/interface/lonmainmenu.pm - diff

Return to lonmainmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.4, 2006/04/21 22:00:56	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',$script_tag));
$r->print('<table id="LC_menubuttons_mainmenu">'.&Apache::lonmenu::inlinemenu().'</table>'.$form);	$r->print(&Apache::loncommon::start_page( 'Main Menu',
	$script_tag,
	{'bread_crumbs' => 1}));
	$r->print(&Apache::lonmenu::inlinemenu().$form);
$r->print(&Apache::loncommon::end_page());	$r->print(&Apache::loncommon::end_page());
return OK;	return OK;
}	}