From 02c7082745f0d99ac9951a9ea0a1f07eaf8271d8 Mon Sep 17 00:00:00 2001
From: Fred Drake <fdrake@acm.org>
Date: Tue, 19 Sep 2000 15:36:19 +0000
Subject: 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).

---
 Doc/perl/l2hinit.perl | 9 +++++++--
 1 file 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 '';
 }
-- 
cgit v0.12