From: Fred Drake <fdrake@acm.org>
Date: Fri, 2 May 2003 20:30:18 +0000 (+0000)
Subject: add link types for the remaining links in the navigation panels
X-Git-Tag: v2.3c1~891
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=05404c3d7cade736860c3c61921abc2b89298fb1;p=thirdparty%2FPython%2Fcpython.git

add link types for the remaining links in the navigation panels
---

diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl
index b5caf6bb35da..6e4b0cbead40 100644
--- a/Doc/perl/l2hinit.perl
+++ b/Doc/perl/l2hinit.perl
@@ -141,23 +141,25 @@ sub get_my_icon($) {
            . " height='32'  alt='$text' width='32'>";
 }
 
-sub use_my_icon($) {
-    my $s = $_[0];
+sub use_my_icon($$) {
+    my($s,$rel) = @_;
     if ($s =~ /\<tex2html_([a-z_]+)_visible_mark\>/) {
         my $r = get_my_icon($1);
         $s =~ s/\<tex2html_[a-z_]+_visible_mark\>/$r/;
     }
+    $s =~ s/<[aA] /<a rel="$rel" /;
     return $s;
 }
 
 sub make_nav_panel() {
     my $s;
     my $BLANK_ICON = get_my_icon('blank');
-    $NEXT = $NEXT_TITLE ? use_my_icon("$NEXT") : $BLANK_ICON;
-    $UP = $UP_TITLE ? use_my_icon("$UP") : $BLANK_ICON;
-    $PREVIOUS = $PREVIOUS_TITLE ? use_my_icon("$PREVIOUS") : $BLANK_ICON;
-    $CONTENTS = use_my_icon("$CONTENTS");
-    $INDEX = $INDEX ? use_my_icon("$INDEX") : $BLANK_ICON;
+    $NEXT = $NEXT_TITLE ? use_my_icon("$NEXT", 'next') : $BLANK_ICON;
+    $UP = $UP_TITLE ? use_my_icon("$UP", 'parent') : $BLANK_ICON;
+    $PREVIOUS = ($PREVIOUS_TITLE
+                 ? use_my_icon("$PREVIOUS", 'prev') : $BLANK_ICON);
+    $CONTENTS = use_my_icon("$CONTENTS", 'contents');
+    $INDEX = $INDEX ? use_my_icon("$INDEX", 'index') : $BLANK_ICON;
     if (!$CUSTOM_BUTTONS) {
         $CUSTOM_BUTTONS = $BLANK_ICON;
     }