From 2394900a55366c682d16f72a74efe022f063e194 Mon Sep 17 00:00:00 2001
From: Fred Drake <fdrake@acm.org>
Date: Wed, 30 Oct 2002 21:51:18 +0000
Subject: Still more magical <link> elements.

---
 Doc/perl/l2hinit.perl | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)
diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl
index 1197531..6da3926 100644
--- a/Doc/perl/l2hinit.perl
+++ b/Doc/perl/l2hinit.perl
@@ -617,10 +617,17 @@ sub make_head_and_body($$) {
             "<html>\n<head>\n",
             ($BASE ? "<base href=\"$BASE\">\n" : ''),
             "<link rel=\"STYLESHEET\" href=\"$STYLESHEET\" type='text/css'>\n",
-            "<link rel=\"first\" href=\"$FILE.html\">\n",
             ($FAVORITES_ICON
              ? ('<link rel="SHORTCUT ICON" href="' . "$FAVORITES_ICON\">\n")
              : ''),
+            ($EXTERNAL_UP_LINK
+             ? ('<link rel="start" href="' . "$EXTERNAL_UP_LINK\""
+                . ($EXTERNAL_UP_TITLE ? " title='$EXTERNAL_UP_TITLE'" : '')
+                . ">\n")
+             : ''),
+            "<link rel=\"first\" href=\"$FILE.html\"",
+            ($t_title ? " title='$t_title'" : ''),
+            ">\n",
             ($HAVE_TABLE_OF_CONTENTS
              ? ('<link rel="contents" href="contents.html" title="Contents">'
                 . ($HAVE_GENERAL_INDEX ? "\n" : ''))
@@ -633,6 +640,16 @@ sub make_head_and_body($$) {
             #  ? '<link rel="index" href="modindex.html" title="Module Index">'
             #    . "\n"
             #  : ''),
+            ($INFO
+             # XXX We can do this with the Python tools since the About...
+             # page always gets copied to about.html, even when we use the
+             # generated node###.html page names.  Won't work with the
+             # rest of the Python doc tools.
+             ? ("<link rel='last' href='about.html'"
+                . " title='About this document...'>\n"
+                . "<link rel='help' href='about.html'"
+                . " title='About this document...'>\n")
+             : ''),
             $more_links_mark,
             "\n",
             ($CHARSET && $HTML_VERSION ge "2.1"
-- 
cgit v0.12

