Update to use the newly separated values $PACKAGE_VERSION and $RELEASE_INFO.

Normalize all HTML attributes to be written as name="value" instead of
name='value'.

diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl
index d3720d999747cbfc16ff87236b902cdf7857aa6d..58ed604c223b73d9160aaecf04b6b1c849c0edde 100644 (file)
--- 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 "
@@ -325,11 +325,11 @@ sub add_module_idx {
        my $plat = '';
        $key =~ s/<tt>([a-zA-Z0-9._]*)<\/tt>/\1/;
        if ($ModulePlatforms{$key} && !$allthesame) {
-           $plat = (" <em>(<span class='platform'>$ModulePlatforms{$key}"
+           $plat = (" <em>(<span class=\"platform\">$ModulePlatforms{$key}"
                     . '</span>)</em>');
        }
        print MODIDXFILE $moditem . $IDXFILE_FIELD_SEP
-              . "<tt class='module'>$key</tt>$plat###\n";
+              . "<tt class=\"module\">$key</tt>$plat###\n";
     }
     close(MODIDXFILE);
 
@@ -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)