- 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 8213740..b5caf6b 100644
--- a/Doc/perl/l2hinit.perl
+++ b/Doc/perl/l2hinit.perl
@@ -99,16 +99,16 @@
$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 @@
. "\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 @@
%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.