From dce975c82060d29061bafc6bd3ef0d8100818baa Mon Sep 17 00:00:00 2001
From: Fred Drake <fdrake@acm.org>
Date: Wed, 20 Jun 2001 21:31:36 +0000
Subject: 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'.
---
 Doc/perl/l2hinit.perl | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

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 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)
-- 
cgit v0.12