loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.498, 2019/08/06 15:54:37	version 1.500, 2020/01/18 04:37:10
Line 449 sub secondary_menu {	Line 449 sub secondary_menu {
}	}
}	}
if ($env{'request.course.groups'} ne '') {	if ($env{'request.course.groups'} ne '') {
foreach my $group (split(/:/,$env{'request.course.groups'}) {	foreach my $group (split(/:/,$env{'request.course.groups'})) {
next unless ($group =~ /^\w+$/);	next unless ($group =~ /^\w+$/);
my @privs = split(/:/,$env{"user.priv.$env{'request.role'}./$cdom/$cnum/$group"});	my @privs = split(/:/,$env{"user.priv.$env{'request.role'}./$cdom/$cnum/$group"});
shift(@privs);	shift(@privs);
Line 1910 sub done_button_js {	Line 1910 sub done_button_js {
my @resources=();	my @resources=();
if ($type eq 'map') {	if ($type eq 'map') {
my ($mapurl,$rid,$resurl)=&Apache::lonnet::decode_symb($env{'request.symb'});	my ($mapurl,$rid,$resurl)=&Apache::lonnet::decode_symb($env{'request.symb'});
@resources=$navmap->retrieveResources($mapurl,sub { $_[0]->is_problem() });	if ($env{'request.symb'} =~ /\.page$/) {
	@resources=$navmap->retrieveResources($resurl,sub { $_[0]->is_problem() });
	} else {
	@resources=$navmap->retrieveResources($mapurl,sub { $_[0]->is_problem() });
	}
} else {	} else {
my $res = $navmap->getBySymb($env{'request.symb'});	my $res = $navmap->getBySymb($env{'request.symb'});
if (ref($res)) {	if (ref($res)) {