diff options
| author | Fred Drake <fdrake@acm.org> | 2000-05-09 16:17:51 (GMT) |
|---|---|---|
| committer | Fred Drake <fdrake@acm.org> | 2000-05-09 16:17:51 (GMT) |
| commit | ef4d111b2a88ab036c6644227ff2115eedf20c89 (patch) | |
| tree | 89011a7fb49b5e69be2a4632c7ccadd403ede904 /Doc/perl/python.perl | |
| parent | d85f05940e00e1e2b9665016c99100f5bebcd1ea (diff) | |
| download | cpython-ef4d111b2a88ab036c6644227ff2115eedf20c89.zip cpython-ef4d111b2a88ab036c6644227ff2115eedf20c89.tar.gz cpython-ef4d111b2a88ab036c6644227ff2115eedf20c89.tar.bz2 | |
do_cmd_seeurl(): New function.
Diffstat (limited to 'Doc/perl/python.perl')
| -rw-r--r-- | Doc/perl/python.perl | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl index 4033c62..6dfa018 100644 --- a/Doc/perl/python.perl +++ b/Doc/perl/python.perl @@ -1288,6 +1288,17 @@ sub do_cmd_seerfc{ . $_; } +sub do_cmd_seeurl{ + local($_) = @_; + my $url = next_argument(); + my $text = next_argument(); + return '<dl compact class="seeurl">' + . "\n <dt><a href=\"$url\"" + . "\n class=\"url\">$url</a>" + . "\n <dd>$text\n </dl>" + . $_; +} + sub do_cmd_seetext{ local($_) = @_; my $content = next_argument(); |