From a00754468fc9be47636a3fb06f6f14f4ecbf9095 Mon Sep 17 00:00:00 2001
From: Fred Drake <fdrake@acm.org>
Date: Thu, 29 Apr 1999 19:06:56 +0000
Subject: make_nav_panel():  Remove the spurious NAME="tex2html\d+" attributes 
 	   added to the anchors in the navigation bars.  These 		   are
 added somewhere deep with l2h, and are stupid.

---
 Doc/perl/l2hinit.perl | 34 ++++++++++++++++++----------------
 1 file changed, 18 insertions(+), 16 deletions(-)

diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl
index 8d737c0..cd81c0a 100644
--- a/Doc/perl/l2hinit.perl
+++ b/Doc/perl/l2hinit.perl
@@ -122,22 +122,24 @@ sub make_nav_sectref{
 }
 
 sub make_nav_panel{
-    return ("<table align=center width=\"100%\" cellpadding=0 cellspacing=2>"
-	    . "\n<tr>"
-	    . "\n<td>$NEXT</td>"
-	    . "\n<td>$UP</td>"
-	    . "\n<td>$PREVIOUS</td>"
-	    . "\n<td align=center$NAV_BGCOLOR width=\"100%\">"
-	    . "\n <b class=title>$t_title</b></td>"
-	    . ($CONTENTS ? "\n<td>$CONTENTS</td>" : $BLANK_ICON)
-	    . "\n<td>$CUSTOM_BUTTONS</td>" # module index
-	    . ($INDEX ? "\n<td>$INDEX</td>" : $BLANK_ICON)
-	    . "\n</tr></table>"
-	    #. "<hr>"
-	    . make_nav_sectref("Next", $NEXT_TITLE)
-	    . make_nav_sectref("Up", $UP_TITLE)
-	    . make_nav_sectref("Previous", $PREVIOUS_TITLE)
-	   );
+    my $s;
+    $s = "<table align=center width=\"100%\" cellpadding=0 cellspacing=2>"
+         . "\n<tr>"
+	 . "\n<td>$NEXT</td>"
+	 . "\n<td>$UP</td>"
+	 . "\n<td>$PREVIOUS</td>"
+	 . "\n<td align=center$NAV_BGCOLOR width=\"100%\">"
+	 . "\n <b class=title>$t_title</b></td>"
+	 . ($CONTENTS ? "\n<td>$CONTENTS</td>" : $BLANK_ICON)
+	 . "\n<td>$CUSTOM_BUTTONS</td>" # module index
+	 . ($INDEX ? "\n<td>$INDEX</td>" : $BLANK_ICON)
+	 . "\n</tr></table>"
+	 #. "<hr>"
+	 . make_nav_sectref("Next", $NEXT_TITLE)
+	 . make_nav_sectref("Up", $UP_TITLE)
+	 . make_nav_sectref("Previous", $PREVIOUS_TITLE);
+    $s =~ s/ NAME="tex2html\d+"\n//g;
+    return $s;
 }
 
 sub top_navigation_panel {
-- 
cgit v0.12