From: Fred Drake <fdrake@acm.org>
Date: Fri, 2 May 2003 20:18:01 +0000 (+0000)
Subject: - add link relationships to some of the links in the navigation panels
X-Git-Tag: v2.3c1~894
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=bf8ec3e035ee7cc5493c27dd816a1961782519c4;p=python

- add link relationships to some of the links in the navigation panels
- implement custom_REL_hook() so LaTeX2HTML uses currently recommended
  link types; those work fine with tools like the Mozilla Site
  Navigation Bar
---

diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl
index 8213740da5..b5caf6bb35 100644
--- a/Doc/perl/l2hinit.perl
+++ b/Doc/perl/l2hinit.perl
@@ -99,16 +99,16 @@ sub custom_driver_hook {
 
 $CUSTOM_BUTTONS = '';
 
-sub make_nav_sectref($$) {
-    my($label, $title) = @_;
+sub make_nav_sectref($$$) {
+    my($label, $linktype, $title) = @_;
     if ($title) {
         if ($title =~ /\<[aA] /) {
-            $title =~ s/\<[aA] /<a class="sectref" /;
+            $title =~ s/\<[aA] /<a class="sectref" rel="$linktype" /;
         }
         else {
             $title = "<span class=\"sectref\">$title</span>";
         }
-        return "<b class=\"navlabel\">$label:</b> $title\n";
+        return "<b class=\"navlabel\">$label:</b>\n$title\n";
     }
     return '';
 }
@@ -175,9 +175,9 @@ sub make_nav_panel() {
           . "\n<td>$INDEX</td>"
           . "\n</tr></table>\n"
           # textual navigation
-          . make_nav_sectref("Previous", $PREVIOUS_TITLE)
-          . make_nav_sectref("Up", $UP_TITLE)
-          . make_nav_sectref("Next", $NEXT_TITLE)
+          . make_nav_sectref("Previous", "prev", $PREVIOUS_TITLE)
+          . make_nav_sectref("Up", "parent", $UP_TITLE)
+          . make_nav_sectref("Next", "next", $NEXT_TITLE)
           );
     # remove these; they are unnecessary and cause errors from validation
     $s =~ s/ NAME="tex2html\d+"\n */ /g;
@@ -581,6 +581,15 @@ sub set_depth_levels {
 		 %declarations);
 
 
+# This is used to map the link rel attributes LaTeX2HTML uses to those
+# currently recommended by the W3C.
+sub custom_REL_hook {
+    my($rel,$junk) = @_;
+    return 'parent' if $rel eq 'up';
+    return 'prev' if $rel eq 'previous';
+    return $rel;
+}
+
 # This is added to get rid of the long comment that follows the
 # doctype declaration; MSIE5 on NT4 SP4 barfs on it and drops the
 # content of the page.