[Python-checkins] CVS: python/dist/src/Doc/perl python.perl,1.82,1.83

[Fred L. Drake]

Update of /cvsroot/python/python/dist/src/Doc/perl
In directory slayer.i.sourceforge.net:/tmp/cvs-serv1806/perl

Modified Files:
	python.perl 
Log Message:

\seetitle:  New macro for building reference list content.


Index: python.perl
===================================================================
RCS file: /cvsroot/python/python/dist/src/Doc/perl/python.perl,v
retrieving revision 1.82
retrieving revision 1.83
diff -C2 -r1.82 -r1.83
*** python.perl	2000/09/09 06:07:37	1.82
--- python.perl	2000/09/12 17:52:33	1.83
***************
*** 1445,1448 ****
--- 1445,1467 ----
  }
  
+ sub do_cmd_seetitle{
+     local($_) = @_;
+     my $url = next_optional_argument();
+     my $title = next_argument();
+     my $text = next_argument();
+     if ($url) {
+         return '<dl compact class="seetitle">'
+           . "\n    <dt><em class=\"citetitle\"><a href=\"$url\""
+           . "\n        class=\"url\">$title</a></em>"
+           . "\n    <dd>$text\n  </dl>"
+           . $_;
+     }
+     return '<dl compact class="seetitle">'
+       . "\n    <dt><em class=\"citetitle\""
+       . "\n        >$title</em>"
+       . "\n    <dd>$text\n  </dl>"
+       . $_;
+ }
+ 
  sub do_cmd_seeurl{
      local($_) = @_;