Update of /cvsroot/python/python/dist/src/Doc/perl
In directory slayer.i.sourceforge.net:/tmp/cvs-serv23205/perl
Modified Files:
l2hinit.perl
Log Message:
Push more of the display control into the style sheet.
Index: l2hinit.perl
===================================================================
RCS file: /cvsroot/python/python/dist/src/Doc/perl/l2hinit.perl,v
retrieving revision 1.47
retrieving revision 1.48
diff -C2 -r1.47 -r1.48
*** l2hinit.perl 2000/09/14 22:20:41 1.47
--- l2hinit.perl 2000/09/16 20:40:44 1.48
***************
*** 27,32 ****
# these exactly match the python.org colors
! $BODYTEXT = ('bgcolor="#ffffff" text="#000000"'
! . ' link="#0000bb" vlink="#551a8b" alink="#ff0000"');
$CHILDLINE = "\n<p><hr>\n";
$VERBOSITY = 0;
--- 27,31 ----
# these exactly match the python.org colors
! $BODYTEXT = '';
$CHILDLINE = "\n<p><hr>\n";
$VERBOSITY = 0;
***************
*** 507,510 ****
--- 506,510 ----
sub make_head_and_body {
my($title, $body) = @_;
+ $body = " $body" unless ($body eq '');
my $DTDcomment = '';
my($version, $isolanguage) = ($HTML_VERSION, 'EN');
***************
*** 542,546 ****
, "<link rel=\"STYLESHEET\" href=\"$STYLESHEET\">"
, $more_links_mark
! , "\n</head>\n<body $body>\n");
}
--- 542,546 ----
, "<link rel=\"STYLESHEET\" href=\"$STYLESHEET\">"
, $more_links_mark
! , "\n</head>\n<body$body>");
}
RetroSearch is an open source project built by @garambo | Open a GitHub Issue
Search and Browse the WWW like it's 1997 | Search results from DuckDuckGo
HTML:
3.2
| Encoding:
UTF-8
| Version:
0.7.4