From aa99a5071e87943e8a2749ffdc43fe83b25c704c Mon Sep 17 00:00:00 2001
From: Fred Drake <fdrake@acm.org>
Date: Wed, 3 Mar 1999 16:21:34 +0000
Subject: [PATCH] Be a little more friendly for the generation of the text
 version: for "blank" navigation icons, use ALT="" instead of ALT="blank";
 also add ALIGN=CENTER for the table, to get a slightly better affect in the
 text (the table is full-width, so this doesn't change the appearance when
 browsing the HTML).

---
 Doc/perl/l2hinit.perl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl
index 322f1f55a520..bc2e3180329d 100644
--- a/Doc/perl/l2hinit.perl
+++ b/Doc/perl/l2hinit.perl
@@ -109,6 +109,7 @@ $icons{'blank'} = 'blank.' . $IMAGE_TYPE;
 
 $CUSTOM_BUTTONS = '';
 $BLANK_ICON = "\n<td>" . img_tag('blank.' . $IMAGE_TYPE) . "</td>";
+$BLANK_ICON =~ s/alt="blank"/alt=""/;
 $NAV_BGCOLOR = " bgcolor=\"#99CCFF\"";
 
 sub make_nav_sectref{
@@ -121,7 +122,8 @@ sub make_nav_sectref{
 }
 
 sub make_nav_panel{
-    return ("<table width=\"100%\" cellpadding=0 cellspacing=2>\n<tr>"
+    return ("<table align=center width=\"100%\" cellpadding=0 cellspacing=2>"
+	    . "\n<tr>"
 	    . "\n<td>$NEXT</td>"
 	    . "\n<td>$UP</td>"
 	    . "\n<td>$PREVIOUS</td>"
@@ -201,6 +203,8 @@ sub img_tag {
 	my $nav_border = "$NAV_BORDER";
 	if ($icon =~ /($alt)/) {
 	    $alt = $1;
+	    $alt = ""
+	      if ($alt eq "blank");
 	}
 	else {
 	    $nav_border = '1';