- 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
This commit is contained in:
Fred Drake 2003-05-02 20:18:01 +00:00
parent 5466296f02
commit bf8ec3e035
1 changed files with 16 additions and 7 deletions

View File

@ -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.