[Python-checkins] python/dist/src/Doc/perl python.perl, 1.137.8.3, 1.137.8.4

[fdrake at users.sourceforge.net]

Update of /cvsroot/python/python/dist/src/Doc/perl
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20281/perl

Modified Files:
      Tag: release23-maint
	python.perl 
Log Message:
fix markup in "title" attribute for \citetitle{}
(closes SF patch #1054715; backported from trunk revision 1.151)

Index: python.perl
===================================================================
RCS file: /cvsroot/python/python/dist/src/Doc/perl/python.perl,v
retrieving revision 1.137.8.3
retrieving revision 1.137.8.4
diff -u -d -r1.137.8.3 -r1.137.8.4
--- python.perl	8 Apr 2004 15:46:56 -0000	1.137.8.3
+++ python.perl	4 Nov 2004 03:25:23 -0000	1.137.8.4
@@ -390,9 +390,10 @@
     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 {