[Python-checkins] python/dist/src/Doc/perl python.perl,1.128,1.129

[fdrake@users.sourceforge.net]

Update of /cvsroot/python/python/dist/src/Doc/perl
In directory usw-pr-cvs1:/tmp/cvs-serv23639

Modified Files:
	python.perl 
Log Message:
Hackish way to generate an up-<link> for the title page if we have
one.

Added misc. comments.


Index: python.perl
===================================================================
RCS file: /cvsroot/python/python/dist/src/Doc/perl/python.perl,v
retrieving revision 1.128
retrieving revision 1.129
diff -C2 -d -r1.128 -r1.129
*** python.perl	18 Jun 2002 18:30:28 -0000	1.128
--- python.perl	30 Oct 2002 21:38:32 -0000	1.129
***************
*** 725,731 ****
  
  
! %TokenToTargetMapping = ();
! %DefinedGrammars = ();
! %BackpatchGrammarFiles = ();
  
  sub do_cmd_token{
--- 725,731 ----
  
  
! %TokenToTargetMapping = ();     # language:token -> link target
! %DefinedGrammars = ();          # language -> full grammar text
! %BackpatchGrammarFiles = ();    # file -> 1 (hash of files to fixup)
  
  sub do_cmd_token{
***************
*** 1648,1652 ****
  sub do_cmd_maketitle{
      local($_) = @_;
!     my $the_title = "\n<div class=\"titlepage\">";
      if ($TITLE_PAGE_GRAPHIC) {
          if ($TITLE_PAGE_GRAPHIC_ON_RIGHT) {
--- 1648,1663 ----
  sub do_cmd_maketitle{
      local($_) = @_;
!     my $the_title = "\n";
!     if ($EXTERNAL_UP_LINK) {
!         # This generates a <LINK> element in the wrong place (the
!         # body), but I don't see any other way to get this generated
!         # at all.  Browsers like Mozilla, that support navigation
!         # links, can make use of this.
!         $the_title .= ("<link rel='up' href='$EXTERNAL_UP_LINK'"
!                        . ($EXTERNAL_UP_TITLE
!                           ? " title='$EXTERNAL_UP_TITLE'" : '')
!                        . ">\n");
!     }
!     $the_title .= '<div class="titlepage">';
      if ($TITLE_PAGE_GRAPHIC) {
          if ($TITLE_PAGE_GRAPHIC_ON_RIGHT) {
***************
*** 1855,1858 ****
--- 1866,1870 ----
  
  sub do_cmd_seerfc{
+     # XXX Would be nice to add links to the text/plain and PDF versions.
      return handle_rfclike_reference(@_[0], "RFC", $RFC_FORMAT);
  }