loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.121, 2004/11/01 04:31:03	version 1.122, 2004/11/02 21:02:01
Line 43 use Apache::lonnet();	Line 43 use Apache::lonnet();
use Apache::Constants qw(:common);	use Apache::Constants qw(:common);
use Apache::lonhtmlcommon();	use Apache::lonhtmlcommon();
use Apache::loncommon();	use Apache::loncommon();
use Apache::lonnavmaps();
use Apache::lonlocal;	use Apache::lonlocal;

use vars qw(@desklines $readdesk);	use vars qw(@desklines $readdesk);
Line 952 sub footer {	Line 951 sub footer {

}	}

	sub nav_control_js {
	my $nav=($ENV{'environment.remotenavmap'} eq 'on');
	return (<<NAVCONTROL);
	var w_loncapanav_flag="$nav";


	function gonav(url) {
	if (w_loncapanav_flag != 1) {
	gopost(url,'');
	} else {
	navwindow=window.open(url,
	"loncapanav","height=600,width=400,scrollbars=1");
	}
	}
	NAVCONTROL
	}

sub utilityfunctions {	sub utilityfunctions {
unless (($ENV{'browser.interface'} eq 'textual') \|\|	unless (($ENV{'browser.interface'} eq 'textual') \|\|
($ENV{'environment.remote'} eq 'off')) { return ''; }	($ENV{'environment.remote'} eq 'off')) { return ''; }
my $currenturl=$ENV{'request.noversionuri'};	my $currenturl=$ENV{'request.noversionuri'};
my $currentsymb=$ENV{'request.symb'};	my $currentsymb=$ENV{'request.symb'};
my $nav_control=&Apache::lonnavmaps::nav_control_js();	my $nav_control=&nav_control_js();
return (<<ENDUTILITY)	return (<<ENDUTILITY)

var currentURL="$currenturl";	var currentURL="$currenturl";