summaryrefslogtreecommitdiffstats
path: root/Doc/perl/l2hinit.perl
diff options
context:
space:
mode:
authorFred Drake <fdrake@acm.org>2000-09-16 20:40:44 (GMT)
committerFred Drake <fdrake@acm.org>2000-09-16 20:40:44 (GMT)
commit1681627ebf22bbe3155949ca8411d4dca4169d44 (patch)
tree297e16fa5c0b2dd80ba80693d84a4f7b5ec9b010 /Doc/perl/l2hinit.perl
parentacff0b3f3b97584ab9e2da923eb0041f6cc99ed3 (diff)
downloadcpython-1681627ebf22bbe3155949ca8411d4dca4169d44.zip
cpython-1681627ebf22bbe3155949ca8411d4dca4169d44.tar.gz
cpython-1681627ebf22bbe3155949ca8411d4dca4169d44.tar.bz2
Push more of the display control into the style sheet.
Diffstat (limited to 'Doc/perl/l2hinit.perl')
-rw-r--r--Doc/perl/l2hinit.perl6
1 files changed, 3 insertions, 3 deletions
diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl
index d78efc8..b551158 100644
--- a/Doc/perl/l2hinit.perl
+++ b/Doc/perl/l2hinit.perl
@@ -26,8 +26,7 @@ $BOTTOM_NAVIGATION = 1;
$AUTO_NAVIGATION = 0;
# these exactly match the python.org colors
-$BODYTEXT = ('bgcolor="#ffffff" text="#000000"'
- . ' link="#0000bb" vlink="#551a8b" alink="#ff0000"');
+$BODYTEXT = '';
$CHILDLINE = "\n<p><hr>\n";
$VERBOSITY = 0;
@@ -506,6 +505,7 @@ sub set_depth_levels {
# content of the page.
sub make_head_and_body {
my($title, $body) = @_;
+ $body = " $body" unless ($body eq '');
my $DTDcomment = '';
my($version, $isolanguage) = ($HTML_VERSION, 'EN');
my %isolanguages = ( 'english', 'EN' , 'USenglish', 'EN.US'
@@ -541,7 +541,7 @@ sub make_head_and_body {
, ($BASE ? "<base href=\"$BASE\">\n" : "" )
, "<link rel=\"STYLESHEET\" href=\"$STYLESHEET\">"
, $more_links_mark
- , "\n</head>\n<body $body>\n");
+ , "\n</head>\n<body$body>");
}
1; # This must be the last line