From: Fred Drake <fdrake@acm.org>
Date: Wed, 3 Mar 1999 16:21:34 +0000 (+0000)
Subject: Be a little more friendly for the generation of the text version: for
X-Git-Tag: v1.5.2c1~216
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=aa99a5071e87943e8a2749ffdc43fe83b25c704c;p=thirdparty%2FPython%2Fcpython.git

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).
---

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';