From 05404c3d7cade736860c3c61921abc2b89298fb1 Mon Sep 17 00:00:00 2001
From: Fred Drake <fdrake@acm.org>
Date: Fri, 2 May 2003 20:30:18 +0000
Subject: [PATCH] add link types for the remaining links in the navigation
 panels

---
 Doc/perl/l2hinit.perl | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl
index b5caf6bb35..6e4b0cbead 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;
     }
-- 
2.50.1