diff options
| author | Fred Drake <fdrake@acm.org> | 2001-10-26 14:16:23 (GMT) |
|---|---|---|
| committer | Fred Drake <fdrake@acm.org> | 2001-10-26 14:16:23 (GMT) |
| commit | fb6499fd9c655ccbd2721e80014118c8c72ce669 (patch) | |
| tree | e1a9ba2115400a2908a4e62231dfc0e0014a4250 /Doc/perl | |
| parent | f0a2ac9d5bf4f233824b7fcd6c232a41e5670284 (diff) | |
| download | cpython-fb6499fd9c655ccbd2721e80014118c8c72ce669.zip cpython-fb6499fd9c655ccbd2721e80014118c8c72ce669.tar.gz cpython-fb6499fd9c655ccbd2721e80014118c8c72ce669.tar.bz2 | |
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!).
Diffstat (limited to 'Doc/perl')
| -rw-r--r-- | Doc/perl/l2hinit.perl | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl index 35c1d8b..61c2ff1 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\">" |