diff options
| -rw-r--r-- | Doc/perl/python.perl | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl index 98a1dcf..20615cc 100644 --- a/Doc/perl/python.perl +++ b/Doc/perl/python.perl @@ -1497,6 +1497,14 @@ sub do_cmd_seemodule{ . $_; } +sub strip_html_markup($){ + my $str = @_[0]; + my $s = "$str"; + $s =~ s/<[a-zA-Z0-9]+(\s+[a-zA-Z0-9]+(\s*=\s*(\'[^\']*\'|\"[^\"]*\"|[a-zA-Z0-9]+))?)*\s*>//g; + $s =~ s/<\/[a-zA-Z0-9]+>//g; + return $s; +} + sub handle_rfclike_reference{ local($_, $what, $format) = @_; my $rfcnum = next_argument(); @@ -1504,9 +1512,10 @@ sub handle_rfclike_reference{ my $text = next_argument(); my $url = get_rfc_url($rfcnum, $format); my $icon = get_link_icon($url); + my $attrtitle = strip_html_markup($title); return '<dl compact class="seerfc">' . "\n <dt><a href=\"$url\"" - . "\n title=\"$title\"" + . "\n title=\"$attrtitle\"" . "\n >$what $rfcnum, <em>$title</em>$icon</a>" . "\n <dd>$text\n </dl>" . $_; |