summaryrefslogtreecommitdiff
path: root/Doc/perl
diff options
context:
space:
mode:
authorFred Drake <fdrake@acm.org>2000-08-31 07:19:07 +0000
committerFred Drake <fdrake@acm.org>2000-08-31 07:19:07 +0000
commitf730fc3e4e4cfe6a5e81ea4c4ff59a7d7c9daab2 (patch)
tree9b5095ee7e479f751fe6df04dbf68cf483e2e068 /Doc/perl
parent3eb7c126cdd7ec7bd7d0376d8f6b671d73bdf464 (diff)
downloadcpython-git-f730fc3e4e4cfe6a5e81ea4c4ff59a7d7c9daab2.tar.gz
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 bd85f686d4..97a9885f7c 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