From 0ab7093be266f6dcf2af9a2f2c58c0e31502ee41 Mon Sep 17 00:00:00 2001
From: Fred Drake <fdrake@acm.org>
Date: Thu, 4 Nov 2004 03:25:23 +0000
Subject: [PATCH] fix markup in "title" attribute for \citetitle{} (closes SF
 patch #1054715; backported from trunk revision 1.151)

---
 Doc/perl/python.perl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl
index c752040b9b1f..426da8bdd149 100644
--- a/Doc/perl/python.perl
+++ b/Doc/perl/python.perl
@@ -390,9 +390,10 @@ sub do_cmd_citetitle{
     my $icon = get_link_icon($url);
     my $repl = '';
     if ($url) {
+        my $titletext = strip_html_markup("$title");
         $repl = ("<em class=\"citetitle\"><a\n"
                  . " href=\"$url\"\n"
-                 . " title=\"$title\"\n"
+                 . " title=\"$titletext\"\n"
                  . " >$title$icon</a></em>");
     }
     else {
-- 
2.47.3