$parentelements{$current_element->{'sectionup'}->{'id'}} = 1
if ($current_element->{'sectionup'}->{'id'} ne '');
$current_element = $current_element->{'sectionup'};
+ if (exists($main::value{'shallow_toc'})) {
+ last;
+ }
}
return () if not defined($current_element);
# Create the toc entries recursively
} else {
push (@toc_entries, "<li class=\"toc_current\"><a href=\"index.html\">Main</a></li>\n");
}
-
my $children = $current_element->{'section_childs'};
# FIXME: generate toc
foreach ( @$children ) {
push (@toc_entries, generate_ly_toc_entries($_, \%parentelements, $page_toc_depth));
}
+ if (!exists($main::value{'shallow_toc'})) {
# FIXME: add search entry box
push (@toc_entries, "<li><form action=\"#\" method=\"get\"><input onfocus=\"this.value=''\" type=\"text\" name=\"search\" id=\"search\" value=\"Search\"></form></li>\n");
-
+ }
push (@toc_entries, "</ul>\n");
#FIXME
# push (@toc_entries, "</div>\n");
print $fh "<img src=\"http://www.w3.org/Icons/valid-html401\"\n";
print $fh " alt=\"Valid HTML 4.01 Transitional\"\n";
print $fh " height=\"31\" width=\"88\"></a></p>\n";
- print $fh "<p>Web pages created with";
- print $fh " <a href=\"http://www.gnu.org/software/texinfo/\">";
- print $fh " GNU Texinfo</a>\n";
- print $fh " and <a href=\"http://www.nongnu.org/texi2html/\">";
- print $fh " texi2html</a>.</p>\n";
print $fh "</div>";
print $fh "</div>";