diff Doc/perl/python.perl @ 15322:d17ba141480a legacy-trunk

Rename $PYTHON_VERSION to $PACKAGE_VERSION; this is the version number for whatever is being documented, not necessarily Python. (These tools are also used for the How-To documents, etc.)
author Fred Drake <fdrake@acm.org>
date Wed, 25 Oct 2000 16:15:13 +0000
parents bbe09cccb49b
children 0c19672d47bb
line wrap: on
line diff
--- a/Doc/perl/python.perl	Wed Oct 25 16:12:04 2000 +0000
+++ b/Doc/perl/python.perl	Wed Oct 25 16:15:13 2000 +0000
@@ -103,13 +103,13 @@
 
 $DEVELOPER_ADDRESS = '';
 $SHORT_VERSION = '';
-$PYTHON_VERSION = '';
+$PACKAGE_VERSION = '';
 
-sub do_cmd_version{ $PYTHON_VERSION . @_[0]; }
+sub do_cmd_version{ $PACKAGE_VERSION . @_[0]; }
 sub do_cmd_shortversion{ $SHORT_VERSION . @_[0]; }
 sub do_cmd_release{
     local($_) = @_;
-    $PYTHON_VERSION = next_argument();
+    $PACKAGE_VERSION = next_argument();
     return $_;
 }
 
@@ -1024,6 +1024,9 @@
     elsif ($font eq 'kbd') {
         $font = 'kbd';
     }
+    elsif ($font eq 'programopt') {
+        $font = 'b';
+    }
     return $font;
 }
 
@@ -1270,8 +1273,8 @@
     }
     if ($t_date) {
 	$the_title .= "\n<p><strong>$t_date</strong>";
-	if ($PYTHON_VERSION) {
-	    $the_title .= "<br><strong>Release $PYTHON_VERSION</strong>";
+	if ($PACKAGE_VERSION) {
+	    $the_title .= "<br><strong>Release $PACKAGE_VERSION</strong>";
         }
 	$the_title .= "</p>"
     }