Don't assume the name of the table of contents will be contents.html;

that won't be right when mkhowto is called with --numeric (as it is
for the Python Tutorial).  Save the actual name we use when we build
the table of contents, then use that in the page head metadata.  The
node2label.pl script will munge this properly when --numeric isn't
given, so this works in both cases.
Closes SF bug #761830.

diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl
index 7a3aeeb9bb0262b345d85e7bedb9a1626a0a0cf4..f48b583186ae7b09d16cbf5865d8c5f45db72e66 100644 (file)
--- a/Doc/perl/l2hinit.perl
+++ b/Doc/perl/l2hinit.perl
@@ -385,12 +385,14 @@ sub add_idx_hook {
 
 # In addition to the standard stuff, add label to allow named node files and
 # support suppression of the page complete (for HTML Help use).
+$MY_CONTENTS_PAGE = '';
 sub do_cmd_tableofcontents {
     local($_) = @_;
     $TITLE = $toc_title;
     $tocfile = $CURRENT_FILE;
     my($closures,$reopens) = preserve_open_tags();
     anchor_label('contents', $CURRENT_FILE, $_);       # this is added
+    $MY_CONTENTS_PAGE = "$CURRENT_FILE";
     join('', "<BR>\n\\tableofchildlinks[off]", $closures
         , make_section_heading($toc_title, 'H2'), $toc_mark
         , $reopens, $_);
@@ -619,8 +621,8 @@ sub make_head_and_body {
             "<link rel=\"STYLESHEET\" href=\"$STYLESHEET\">\n",
             "<link rel=\"first\" href=\"$FILE.html\">\n",
             ($HAVE_TABLE_OF_CONTENTS
-             ? ('<link rel="contents" href="contents.html" title="Contents">'
-                . "\n")
+             ? ("<link rel='contents' href='$MY_CONTENTS_PAGE'"
+                . " title='Contents'>\n")
              : ''),
             ($HAVE_GENERAL_INDEX
              ? '<link rel="index" href="genindex.html" title="Index">'