# unnumbered sections (except those at top-level!) always go to the same
# file as the previous numbered section
- if (not $docu_name == "web" and not ($element->{number})
+ if (not ($web_manual) and not ($element->{number})
and not ($lastfilename eq '') and ($element->{level} > 1)) {
$filename = $lastfilename;
}
# -) the parent is a numbered element at top-level toplevel (i.e. show numbered
# and unnumbered 2nd-level children of numbered nodes)
# -) the child element is a numbered node below level maxlevel
-sub generate_ly_toc_entries($$$$)
+sub generate_ly_toc_entries($$$$$)
{
my $element = shift;
my $element_path = shift;
$maxlevel = 1;
}
my $child_count = shift;
+ my $current_element = shift;
# Skip undefined sections, plus all sections generated by index splitting
return() if (not defined($element) or exists($element->{'index_page'}));
my @result = ();
my $below_maxlevel = $c->{'toc_level'} le $maxlevel;
if ($force_children or ($is_numbered_child and $below_maxlevel)) {
my @child_res =
- generate_ly_toc_entries($c, $element_path, $maxlevel, $sub_child_count);
+ generate_ly_toc_entries($c, $element_path, $maxlevel, $sub_child_count, $current_element);
push (@child_result, @child_res);
$sub_child_count += 1;
}
if (@child_result) {
push (@result, "\n$ind<ul$NO_BULLET_LIST_ATTRIBUTE>\n");
if ($web_manual) {
- push (@result, "$ind<li class=\"colorDefault toc_current\">" .
+ push (@result, "$ind<li class=\"colorDefault" .
+ ($element->{'text'} eq $current_element->{'text'} ?
+ ' toc_current">' : '">') .
&$anchor ($element->{'tocid'},
"$element->{'file'}#$element->{'target'}",
$element->{'text'}) . "</li>\n");
}
my $children = $current_element->{'section_childs'};
foreach ( @$children ) {
- push (@toc_entries, generate_ly_toc_entries($_, \%parentelements, $page_toc_depth, 0));
+ push (@toc_entries, generate_ly_toc_entries($_, \%parentelements, $page_toc_depth, 0, $element));
}
# search box
local $/=undef;
open FILE, "$ENV{TOP_SRC_DIR}/Documentation/$lang/$name.ihtml" or
open FILE, "$ENV{TOP_SRC_DIR}/Documentation/$name.ihtml" or
die "no such file: $name.ihtml: $!";
- my $search_string = <FILE>;
+ my $search_string = decode ('UTF-8', <FILE>);
$search_string = "<li>\n" . $search_string . "</li>\n";
push (@toc_entries, $search_string);
close FILE;
} else {
$lang = "";
}
- my $reldir = "";
- $reldir = "../" if ($Texi2HTML::Config::SPLIT eq 'section');
- my $uplink = $reldir."web/manuals.${lang}html";
+ my $reldir = $ENV{DEPTH};
+ my $uplink = $reldir."/Documentation/web/manuals.${lang}html";
if (not $web_manual) {
print $fh "<p class=\"toc_uplink\"><a href=\"$uplink\"