From: Fred Drake <fdrake@acm.org>
Date: Fri, 26 Oct 2001 14:16:23 +0000 (+0000)
Subject: Clean up the tables of child links generated by stock LaTeX2HTML so we get
X-Git-Tag: v2.2.1c1~1036
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=fb6499fd9c655ccbd2721e80014118c8c72ce669;p=python

Clean up the tables of child links generated by stock LaTeX2HTML so we get
consistent (lack of) vertical space between sections, and remove some of the
unnecessary cruft that was added in (finally we get to *remove* something
that got generated!).
---

diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl
index 35c1d8bf7f..61c2ff1791 100644
--- a/Doc/perl/l2hinit.perl
+++ b/Doc/perl/l2hinit.perl
@@ -182,6 +182,14 @@ sub make_nav_panel {
     return $s;
 }
 
+sub add_child_links {
+    my $toc = add_real_child_links(@_);
+    $toc =~ s|\s*</[aA]>|</a>|g;
+    $toc =~ s/ NAME=\"tex2html\d+\"\s*href=/ href=/gi;
+    $toc =~ s|</UL>(\s*<BR>)?|</ul>|gi;
+    return $toc;
+}
+
 sub get_version_text {
     if ($PACKAGE_VERSION ne '' && $t_date) {
         return ("<span class=\"release-info\">"