[Python-checkins] python/dist/src/Doc/perl python.perl, 1.137, 1.137.8.1

Thu Jan 8 10:00:15 EST 2004

Update of /cvsroot/python/python/dist/src/Doc/perl
In directory sc8-pr-cvs1:/tmp/cvs-serv13253/perl
Modified Files:
 Tag: release23-maint
	python.perl 
Log Message:
add new reference macro: \seelink
Index: python.perl
===================================================================
RCS file: /cvsroot/python/python/dist/src/Doc/perl/python.perl,v
retrieving revision 1.137
retrieving revision 1.137.8.1
diff -C2 -d -r1.137 -r1.137.8.1
*** python.perl	16 Jul 2003 14:01:56 -0000	1.137
--- python.perl	8 Jan 2004 15:00:13 -0000	1.137.8.1
***************
*** 1909,1912 ****
--- 1909,1925 ----
 }
 
+ sub do_cmd_seelink{
+ local($_) = @_;
+ my $url = next_argument();
+ my $linktext = next_argument();
+ my $text = next_argument();
+ my $icon = get_link_icon($url);
+ return '<dl compact class="seeurl">'
+ . "\n <dt><a href='$url'"
+ . "\n >$linktext$icon</a></dt>"
+ . "\n <dd>$text</dd>\n </dl>"
+ . $_;
+ }
+ 
 sub do_cmd_seeurl{
 local($_) = @_;