summaryrefslogtreecommitdiffstats
path: root/Doc/perl
diff options
context:
space:
mode:
authorFred Drake <fdrake@acm.org>1999-03-03 16:21:34 (GMT)
committerFred Drake <fdrake@acm.org>1999-03-03 16:21:34 (GMT)
commitaa99a5071e87943e8a2749ffdc43fe83b25c704c (patch)
tree03f1c0a7e31b4ca2a5c8ef318a34a0b89e985030 /Doc/perl
parenta54a887f6638f25750cf2b9eff704225efa658b8 (diff)
downloadcpython-aa99a5071e87943e8a2749ffdc43fe83b25c704c.zip
cpython-aa99a5071e87943e8a2749ffdc43fe83b25c704c.tar.gz
cpython-aa99a5071e87943e8a2749ffdc43fe83b25c704c.tar.bz2
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).
Diffstat (limited to 'Doc/perl')
-rw-r--r--Doc/perl/l2hinit.perl6
1 files changed, 5 insertions, 1 deletions
diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl
index 322f1f5..bc2e318 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';