loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.472, 2017/05/08 14:20:20	version 1.474, 2017/08/21 21:13:09
Line 513 sub secondary_menu {	Line 513 sub secondary_menu {
}	}
}	}
}	}
	$$menuitem[0] = &HTML::Entities::encode($$menuitem[0],'&<>"');
}	}
$menu .= &prep_menuitem(\@$menuitem);	$menu .= &prep_menuitem(\@$menuitem);
}	}
Line 531 sub secondary_menu {	Line 532 sub secondary_menu {
my $londocroot = $Apache::lonnet::perlvar{'lonDocRoot'};	my $londocroot = $Apache::lonnet::perlvar{'lonDocRoot'};
($escurl = $env{'request.filename'}) =~ s{^\Q$londocroot\E}{};	($escurl = $env{'request.filename'}) =~ s{^\Q$londocroot\E}{};
$escurl = &escape($escurl);	$escurl = &escape($escurl);
}	}
$menu =~ s/\[url\]/$escurl/g;	$menu =~ s/\[url\]/$escurl/g;
$menu =~ s/\[symb\]/$escsymb/g;	$menu =~ s/\[symb\]/$escsymb/g;
}	}
Line 671 sub innerregister {	Line 672 sub innerregister {
no_mt => 1});	no_mt => 1});
}	}

unless (($crstype eq 'Placement') \|\| (!$env{'request.role.adv'})) {	unless (($crstype eq 'Placement') && (!$env{'request.role.adv'})) {
push @crumbs, {text => $maptitle, no_mt => 1} if ($maptitle	push @crumbs, {text => $maptitle, no_mt => 1} if ($maptitle
&& $maptitle ne 'default.sequence'	&& $maptitle ne 'default.sequence'
&& $maptitle ne $coursetitle);	&& $maptitle ne $coursetitle);