diff options
| -rw-r--r-- | Doc/perl/l2hinit.perl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl index 0ecb693d80..2164ace27d 100644 --- a/Doc/perl/l2hinit.perl +++ b/Doc/perl/l2hinit.perl @@ -401,12 +401,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, $_); @@ -652,7 +654,8 @@ sub make_head_and_body($$) { ($t_title ? " title='$t_title'" : ''), '>', ($HAVE_TABLE_OF_CONTENTS - ? "\n<link rel='contents' href='contents.html' title='Contents'>" + ? ("\n<link rel='contents' href='$MY_CONTENTS_PAGE'" + . ' title="Contents">') : ''), ($HAVE_GENERAL_INDEX ? "\n<link rel='index' href='genindex.html' title='Index'>" |