diff options
author | Fred Drake <fdrake@acm.org> | 2003-05-02 20:18:01 (GMT) |
---|---|---|
committer | Fred Drake <fdrake@acm.org> | 2003-05-02 20:18:01 (GMT) |
commit | bf8ec3e035ee7cc5493c27dd816a1961782519c4 (patch) | |
tree | 4817645b02e9c91aba3fb806cca6854cc64a6ee9 /Doc/perl | |
parent | 5466296f02c2d53894aa51ef035ddf690b5d2224 (diff) | |
download | cpython-bf8ec3e035ee7cc5493c27dd816a1961782519c4.zip cpython-bf8ec3e035ee7cc5493c27dd816a1961782519c4.tar.gz cpython-bf8ec3e035ee7cc5493c27dd816a1961782519c4.tar.bz2 |
- 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
Diffstat (limited to 'Doc/perl')
-rw-r--r-- | Doc/perl/l2hinit.perl | 23 |
1 files changed, 16 insertions, 7 deletions
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 @@ 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. |