From 6162dd22a7d08579ca796ae0b68008d1b9877774 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Tue, 1 Sep 2009 18:06:08 +0000
Subject: [PATCH 1/1] strip html from anchors

git-svn-id: file:///home/dpavlin/private/svn/sysadmin-cookbook-html@11 3e18072f-9615-4e06-9d3a-648eafba3f8d
---
 bin/html.pl | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

diff --git a/bin/html.pl b/bin/html.pl
index 35827eb..0b0d8e2 100755
--- a/bin/html.pl
+++ b/bin/html.pl
@@ -56,13 +56,18 @@ find({ follow => 0, no_chdir => 1, wanted => sub {
 my $last_level = 0;
 my $toc_html = '';
 sub header {
-	my ($level, $content) = @_;
-	my $display = $content;
+	my ($level, $name) = @_;
+
+	my $display = $name;
 	$display =~ s{^\d+[\.-]}{};
 	$display =~ s{-}{ }g;
 	$display =~ s{\.\w+$}{};
-	$content =~ s{\W+}{_}g;
-	html qq|<a name=$content></a>|;
+
+	my $anchor = $name;
+	$anchor =~ s{</?[^>]+>}{}g;
+	$anchor =~ s{\W+}{_}g;
+
+	html qq|<a name=$anchor></a>|;
 	html qq|<h$level>$display</h$level>|;
 
 	if ( $last_level > $level ) {
@@ -70,7 +75,7 @@ sub header {
 	} elsif ( $last_level < $level ) {
 		$toc_html .= "<ul>";
 	}
-	$toc_html .= qq|<li><a href="#$content">$display</li>|;
+	$toc_html .= qq|<li><a href="#$anchor">$display</li>|;
 	$last_level = $level;
 }
 
-- 
2.20.1