loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.110, 2004/07/14 17:40:32	version 1.112, 2004/08/10 18:05:12
Line 68 sub menubuttons {	Line 68 sub menubuttons {
my $forcereg=shift;	my $forcereg=shift;
my $target =shift;	my $target =shift;
my $registration=shift;	my $registration=shift;

	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
	['inhibitmenu']);
	if ($ENV{'form.inhibitmenu'} eq 'yes') { return ''; }

my $navmaps='';	my $navmaps='';
my $reloadlink='';	my $reloadlink='';
my $escurl=&Apache::lonnet::escape($ENV{'request.noversionuri'});	my $escurl=&Apache::lonnet::escape($ENV{'request.noversionuri'});
Line 604 sub reopenmenu {	Line 609 sub reopenmenu {
sub open {	sub open {
my $returnval='';	my $returnval='';
if (($ENV{'browser.interface'} eq 'textual') \|\|	if (($ENV{'browser.interface'} eq 'textual') \|\|
($ENV{'environment.remote'} eq 'off')) { return ''; }	($ENV{'environment.remote'} eq 'off')) {
	return '<script type="text/javascript">self.name="loncapaclient";</script>';
	}
my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'};	my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'};
unless (shift eq 'unix') {	unless (shift eq 'unix') {
# resizing does not work on linux because of virtual desktop sizes	# resizing does not work on linux because of virtual desktop sizes