tagging: Fix one more HTML escaping issue.

diff --git a/xtaran/tagging b/xtaran/tagging
index 336bcc52e2f2606db8c7a4703ab7fdd50de7cf19..bde29ebd39843ab0966e661bbd48d169728db93f 100644 (file)
--- a/xtaran/tagging
+++ b/xtaran/tagging
@@ -330,7 +330,8 @@ sub story {
 
        my $attr_title = blosxom::blosxom_html_escape("$shared_tags_number $shared_tags_text: $shared_tags_list");
        my $attr_href = blosxom::blosxom_html_escape($opath);
-       $related_stories .= qq($related_story_prefix<a href="$attr_href" class="$related_story_class" title="$attr_title">$title</a>);
+       my $html_title = blosxom::blosxom_html_escape($title);
+       $related_stories .= qq($related_story_prefix<a href="$attr_href" class="$related_story_class" title="$attr_title">$html_title</a>);
 
        $related_stories .= ' (' 
            if $show_shared_tags || $show_number_of_shared_tags;