[Python-checkins] CVS: python/dist/src/Doc/perl python.perl,1.74,1.75

[Fred Drake]

Update of /projects/cvsroot/python/dist/src/Doc/perl
In directory seahag.cnri.reston.va.us:/home/fdrake/projects/python/Doc/perl

Modified Files:
	python.perl 
Log Message:

do_cmd_seeurl():  New function.


Index: python.perl
===================================================================
RCS file: /projects/cvsroot/python/dist/src/Doc/perl/python.perl,v
retrieving revision 1.74
retrieving revision 1.75
diff -C2 -r1.74 -r1.75
*** python.perl	2000/05/02 17:37:42	1.74
--- python.perl	2000/05/09 16:17:51	1.75
***************
*** 1289,1292 ****
--- 1289,1303 ----
  }
  
+ 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($_) = @_;