summaryrefslogtreecommitdiffstats
path: root/Doc/perl
diff options
context:
space:
mode:
authorFred Drake <fdrake@acm.org>2000-08-31 07:19:07 (GMT)
committerFred Drake <fdrake@acm.org>2000-08-31 07:19:07 (GMT)
commitf730fc3e4e4cfe6a5e81ea4c4ff59a7d7c9daab2 (patch)
tree9b5095ee7e479f751fe6df04dbf68cf483e2e068 /Doc/perl
parent3eb7c126cdd7ec7bd7d0376d8f6b671d73bdf464 (diff)
downloadcpython-f730fc3e4e4cfe6a5e81ea4c4ff59a7d7c9daab2.zip
cpython-f730fc3e4e4cfe6a5e81ea4c4ff59a7d7c9daab2.tar.gz
cpython-f730fc3e4e4cfe6a5e81ea4c4ff59a7d7c9daab2.tar.bz2
Be a little more careful to avoid including style information in the
generated markup. Don't be careless with the navigation icons! We should use the blank icon where there is not anyplace to go for a particular position in the navigation bar.
Diffstat (limited to 'Doc/perl')
-rw-r--r--Doc/perl/l2hinit.perl25
1 files changed, 12 insertions, 13 deletions
diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl
index bd85f68..97a9885 100644
--- a/Doc/perl/l2hinit.perl
+++ b/Doc/perl/l2hinit.perl
@@ -18,6 +18,7 @@ $NUMBERED_FOOTNOTES = 1;
$SHOW_SECTION_NUMBERS = 1;
$ICONSERVER = '../icons';
+$IMAGE_TYPE = 'gif';
# Control where the navigation bars should show up:
$TOP_NAVIGATION = 1;
@@ -93,7 +94,6 @@ sub custom_driver_hook {
$CUSTOM_BUTTONS = '';
-$NAV_BGCOLOR = " bgcolor=\"#99CCFF\"";
sub make_nav_sectref {
my($label,$title) = @_;
@@ -111,22 +111,22 @@ sub make_my_icon {
. " height=\"32\"\n alt=\"$text\" width=\"32\">";
}
-$BLANK_ICON = make_my_icon("blank", "");
+$BLANK_ICON = make_my_icon('blank', '');
@my_icons = ();
$my_icons{'next_page_inactive'} = $BLANK_ICON;
$my_icons{'previous_page_inactive'} = $BLANK_ICON;
$my_icons{'up_page_inactive'} = $BLANK_ICON;
-$x = make_my_icon("next", "Next Page");
+$x = make_my_icon('next', 'Next Page');
$my_icons{'next_page'} = $x;
$my_icons{'next'} = $x;
-$x = make_my_icon("previous", "Previous Page");
+$x = make_my_icon('previous', 'Previous Page');
$my_icons{'previous_page'} = $x;
$my_icons{'previous'} = $x;
-$my_icons{'up'} = make_my_icon("up", "Up One Level");
-$my_icons{'contents'} = make_my_icon("contents", "Contents");
-$my_icons{'index'} = make_my_icon("index", "Index");
-$my_icons{'modules'} = make_my_icon("modules", "Module Index");
+$my_icons{'up'} = make_my_icon('up', 'Up One Level');
+$my_icons{'contents'} = make_my_icon('contents', 'Contents');
+$my_icons{'index'} = make_my_icon('index', 'Index');
+$my_icons{'modules'} = make_my_icon('modules', 'Module Index');
sub use_my_icon {
@@ -137,9 +137,9 @@ sub use_my_icon {
sub make_nav_panel {
my $s;
- $NEXT = use_my_icon("$NEXT");
- $UP = use_my_icon("$UP");
- $PREVIOUS = use_my_icon("$PREVIOUS");
+ $NEXT = $NEXT_TITLE ? use_my_icon("$NEXT") : $BLANK_ICON;
+ $UP = $UP_TITLE ? use_my_icon("$UP") : $BLANK_ICON;
+ $PREVIOUS = $PREVIOUS_TITLE ? use_my_icon("$PREVIOUS") : $BLANK_ICON;
$CONTENTS = use_my_icon("$CONTENTS");
$INDEX = $INDEX ? use_my_icon("$INDEX") : $BLANK_ICON;
if (!$CUSTOM_BUTTONS) {
@@ -152,8 +152,7 @@ sub make_nav_panel {
. "\n<td>$UP</td>"
. "\n<td>$NEXT</td>"
# title box
- . "\n<td align=\"center\"$NAV_BGCOLOR width=\"100%\">"
- . "\n <b class=\"title\">$t_title</b></td>"
+ . "\n<td align=\"center\" width=\"100%\">$t_title</td>"
# right-hand side
. "\n<td>$CONTENTS</td>"
. "\n<td>$CUSTOM_BUTTONS</td>" # module index