[Python-checkins] CVS: python/dist/src/Doc/perl l2hinit.perl,1.56,1.57

[Fred L. Drake]

Update of /cvsroot/python/python/dist/src/Doc/perl
In directory usw-pr-cvs1:/tmp/cvs-serv22426/perl

Modified Files:
	l2hinit.perl 
Log Message:
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!).


Index: l2hinit.perl
===================================================================
RCS file: /cvsroot/python/python/dist/src/Doc/perl/l2hinit.perl,v
retrieving revision 1.56
retrieving revision 1.57
diff -C2 -d -r1.56 -r1.57
*** l2hinit.perl	2001/10/22 16:57:49	1.56
--- l2hinit.perl	2001/10/26 14:16:23	1.57
***************
*** 183,186 ****
--- 183,194 ----
  }
  
+ 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) {