diff options
Diffstat (limited to 'Doc/perl')
| -rw-r--r-- | Doc/perl/python.perl | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl index 3a1eaa1..536f324 100644 --- a/Doc/perl/python.perl +++ b/Doc/perl/python.perl @@ -68,7 +68,7 @@ sub do_cmd_NULL{ '<tt>NULL</tt>' . @_[0]; } sub do_cmd_e{ '\' . @_[0]; } -$AUTHOR_ADDRESS = ''; +$DEVELOPER_ADDRESS = ''; $PYTHON_VERSION = ''; sub do_cmd_version{ $PYTHON_VERSION . @_[0]; } @@ -80,10 +80,14 @@ sub do_cmd_release{ sub do_cmd_authoraddress{ local($_) = @_; - $AUTHOR_ADDRESS = next_argument(); + $DEVELOPER_ADDRESS = next_argument(); $_; } +sub do_cmd_developer{ do_cmd_author(@_[0]); } +sub do_cmd_developers{ do_cmd_author(@_[0]); } +sub do_cmd_developersaddress{ do_cmd_authoraddress(@_[0]); } + sub do_cmd_hackscore{ local($_) = @_; next_argument(); @@ -783,8 +787,8 @@ sub do_cmd_maketitle { } else { write_warnings("\nThere is no author for this document."); } if ($t_institute) { $the_title .= "\n<p>$t_institute</p>";} - if ($AUTHOR_ADDRESS) { - $the_title .= "\n<p>$AUTHOR_ADDRESS</p>";} + if ($DEVELOPER_ADDRESS) { + $the_title .= "\n<p>$DEVELOPER_ADDRESS</p>";} if ($t_affil) { $the_title .= "\n<p><i>$t_affil</i></p>";} if ($t_date) { |