loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.291, 2009/10/16 23:35:08	version 1.293, 2009/10/20 01:57:42
Line 185 sub primary_menu {	Line 185 sub primary_menu {
} else {	} else {
if (ref($menuitem) eq 'ARRAY') {	if (ref($menuitem) eq 'ARRAY') {
my @items = @{$menuitem};	my @items = @{$menuitem};
$items[0] = 'javascript:'.$menuitem;	$items[0] = 'javascript:'.$menuitem->[0].';';
$menu .= &prep_menuitem(\@items);	$menu .= &prep_menuitem(\@items);
}	}
}	}
Line 1519 sub utilityfunctions {	Line 1519 sub utilityfunctions {
return ''; }	return ''; }

my $currenturl=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$env{'request.noversionuri'}))[0]));	my $currenturl=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$env{'request.noversionuri'}))[0]));
	if ($currenturl =~ m{^/adm/wrapper/ext/}) {
	if ($env{'request.external.querystring'}) {
	$currenturl .= ($currenturl=~/\?/)?'&':'?'.$env{'request.external.querystring'};
	}
	}
$currenturl=&Apache::lonenc::check_encrypt(&unescape($currenturl));	$currenturl=&Apache::lonenc::check_encrypt(&unescape($currenturl));

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