[Python-checkins] CVS: python/dist/src/Doc/perl l2hinit.perl,1.47,1.48

Fred L. Drake python-dev@python.org
Sat, 16 Sep 2000 13:40:47 -0700


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>");
  }