summaryrefslogtreecommitdiffstats
path: root/Doc/perl
diff options
context:
space:
mode:
authorFred Drake <fdrake@acm.org>2004-11-04 03:23:04 (GMT)
committerFred Drake <fdrake@acm.org>2004-11-04 03:23:04 (GMT)
commited306292d68fe8ca3fb48f31129fe68229741519 (patch)
treecd5a8b11bcc41dbab4b30c8d84f2f7c52e757cd7 /Doc/perl
parent7348bad5b5a8464be1eed04745d77b4f3c8edd76 (diff)
downloadcpython-ed306292d68fe8ca3fb48f31129fe68229741519.zip
cpython-ed306292d68fe8ca3fb48f31129fe68229741519.tar.gz
cpython-ed306292d68fe8ca3fb48f31129fe68229741519.tar.bz2
fix markup in "title" attribute for \citetitle{}
(closes SF patch #1054715; backporting to release23-maint branch)
Diffstat (limited to 'Doc/perl')
-rw-r--r--Doc/perl/python.perl3
1 files changed, 2 insertions, 1 deletions
diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl
index c7f2ffb..14ce958 100644
--- a/Doc/perl/python.perl
+++ b/Doc/perl/python.perl
@@ -389,9 +389,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 {