diff options
author | Fred Drake <fdrake@acm.org> | 1999-03-03 16:21:34 (GMT) |
---|---|---|
committer | Fred Drake <fdrake@acm.org> | 1999-03-03 16:21:34 (GMT) |
commit | aa99a5071e87943e8a2749ffdc43fe83b25c704c (patch) | |
tree | 03f1c0a7e31b4ca2a5c8ef318a34a0b89e985030 /Doc/perl | |
parent | a54a887f6638f25750cf2b9eff704225efa658b8 (diff) | |
download | cpython-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.perl | 6 |
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'; |