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 d3720d9..58ed604 100644
--- a/Doc/perl/l2hinit.perl
+++ b/Doc/perl/l2hinit.perl
@@ -181,12 +181,12 @@
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 @@
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 @@
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)