diff options
Diffstat (limited to 'Doc/perl')
| -rw-r--r-- | Doc/perl/l2hinit.perl | 6 | ||||
| -rw-r--r-- | Doc/perl/python.perl | 21 |
2 files changed, 23 insertions, 4 deletions
diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl index d3720d9..7ef9ad6 100644 --- a/Doc/perl/l2hinit.perl +++ b/Doc/perl/l2hinit.perl @@ -181,12 +181,12 @@ sub make_nav_panel { sub get_version_text { if ($PACKAGE_VERSION ne '' && $t_date) { return ("<span class=\"release-info\">" - . "Release $PACKAGE_VERSION," + . "Release $PACKAGE_VERSION$RELEASE_INFO," . " documentation updated on $t_date.</span>"); } if ($PACKAGE_VERSION ne '') { return ("<span class=\"release-info\">" - . "Release $PACKAGE_VERSION.</span>"); + . "Release $PACKAGE_VERSION$RELEASE_INFO.</span>"); } if ($t_date) { return ("<span class=\"release-info\">Documentation released on " @@ -415,7 +415,7 @@ sub do_cmd_textohtmlinfopage { if ($t_date) { # mostly ours $the_version = ",\n$t_date"; if ($PACKAGE_VERSION) { - $the_version .= ", Release $PACKAGE_VERSION"; + $the_version .= ", Release $PACKAGE_VERSION$RELEASE_INFO"; } } $_ = (($INFO == 1) diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl index 7b58d6a..1e54ae9 100644 --- a/Doc/perl/python.perl +++ b/Doc/perl/python.perl @@ -104,6 +104,7 @@ sub do_cmd_e{ '\' . @_[0]; } $DEVELOPER_ADDRESS = ''; $SHORT_VERSION = ''; +$RELEASE_INFO = ''; $PACKAGE_VERSION = ''; sub do_cmd_version{ $PACKAGE_VERSION . @_[0]; } @@ -114,6 +115,12 @@ sub do_cmd_release{ return $_; } +sub do_cmd_setreleaseinfo{ + local($_) = @_; + $RELEASE_INFO = next_argument(); + return $_; +} + sub do_cmd_setshortversion{ local($_) = @_; $SHORT_VERSION = next_argument(); @@ -906,6 +913,17 @@ sub do_env_classdesc{ return handle_classlike_descriptor(@_[0], "class"); } +sub do_env_classdescstar{ + local($_) = @_; + $THIS_CLASS = next_argument(); + $idx = make_str_index_entry( + "<tt class=\"class\">$THIS_CLASS</tt> (class in $THIS_MODULE)"); + $idx =~ s/ \(.*\)//; + return ("<dl><dt><b>class $idx</b>\n<dd>" + . $_ + . '</dl>'); +} + sub do_env_excclassdesc{ return handle_classlike_descriptor(@_[0], "exception"); } @@ -1296,7 +1314,8 @@ sub make_my_titlepage() { if ($t_date) { $the_title .= "\n<p>"; if ($PACKAGE_VERSION) { - $the_title .= "<strong>Release $PACKAGE_VERSION</strong><br>\n"; + $the_title .= ('<strong>Release ' + . "$PACKAGE_VERSION$RELEASE_INFO</strong><br>\n"); } $the_title .= "<strong>$t_date</strong></p>" } |