diff options
| -rw-r--r-- | Doc/perl/l2hinit.perl | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl index b551158..4274a6c 100644 --- a/Doc/perl/l2hinit.perl +++ b/Doc/perl/l2hinit.perl @@ -97,8 +97,13 @@ $CUSTOM_BUTTONS = ''; sub make_nav_sectref { my($label,$title) = @_; if ($title) { - return ("<b class='navlabel'>$label:</b> " - . "<span class='sectref'>$title</span>\n"); + if ($title =~ /\<[aA] /) { + $title =~ s/\<[aA] /<a class="sectref" /; + } + else { + $title = "<span class=\"sectref\">$title</span>"; + } + return "<b class=\"navlabel\">$label:</b> $title\n"; } return ''; } |