make_nav_sectref(): Create more minimal HTML, hanging the class attribute
off an existing anchor tag if available (I think it
always is, but am not completely sure).
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 @@
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 '';
}