loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.142, 2005/01/31 19:24:02	version 1.143, 2005/02/02 19:24:45
Line 979 sub utilityfunctions {	Line 979 sub utilityfunctions {
my $caller = shift;	my $caller = shift;
unless (($ENV{'browser.interface'} eq 'textual') \|\|	unless (($ENV{'browser.interface'} eq 'textual') \|\|
($ENV{'environment.remote'} eq 'off') \|\| ($caller eq '/adm/menu')) { return ''; }	($ENV{'environment.remote'} eq 'off') \|\| ($caller eq '/adm/menu')) { return ''; }
my $currenturl=&Apache::lonenc::check_encrypt($ENV{'request.noversionuri'});	my $currenturl=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$ENV{'request.noversionuri'}))[0]));
	$currenturl=&Apache::lonenc::check_encrypt(&Apache::lonnet::unescape($currenturl));

my $currentsymb=&Apache::lonenc::check_encrypt($ENV{'request.symb'});	my $currentsymb=&Apache::lonenc::check_encrypt($ENV{'request.symb'});
my $nav_control=&nav_control_js();	my $nav_control=&nav_control_js();