From b35f2b7ef805b6988844bcfb757733cf3cf246e4 Mon Sep 17 00:00:00 2001
From: Fred Drake <fdrake@acm.org>
Date: Thu, 23 Sep 1999 16:53:09 +0000
Subject: Remove some <SPAN> elements that were used only to carry a CLASS
 attribute; stick the CLASS on an existing element.

Use a variable for the name of the file to get "About this
document..." text from.
---
 Doc/perl/l2hinit.perl | 20 ++++++++++++++------
 1 file changed, 14 insertions(+), 6 deletions(-)

diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl
index 9c92819..e9bef64 100644
--- a/Doc/perl/l2hinit.perl
+++ b/Doc/perl/l2hinit.perl
@@ -77,6 +77,12 @@ else {
 $mytexinputs .= "$myrootdir${dd}texinputs";
 
 
+# Change this variable to change the text added in "About this document...";
+# this should be an absolute pathname to get it right.
+#
+$ABOUT_FILE = "$myrootdir${dd}html${dd}stdabout.dat";
+
+
 sub custom_driver_hook{
     #
     # This adds the directory of the main input file to $TEXINPUTS; it
@@ -143,8 +149,9 @@ adjust_icon_information();
 sub make_nav_sectref{
     my($label,$title) = @_;
     if ($title) {
+        $title =~ s/<A/<A class=sectref/;
 	return ("<b class=navlabel>$label:</b> "
-		. "<span class=sectref>$title</span>\n");
+		. "$title\n");
     }
     return '';
 }
@@ -408,11 +415,12 @@ sub do_cmd_textohtmlinfopage {
 	}
     }
     $_ = (($INFO == 1)
-      ? join('', $close_all
-	, "<strong>$t_title</strong>$the_version\n"
-	, `cat $myrootdir${dd}html${dd}about.dat`
-	, $open_all, $_)
-      : join('', $close_all, $INFO,"\n", $open_all, $_));
+          ? join('',
+                 $close_all,
+                 "<strong>$t_title</strong>$the_version\n",
+                 `cat $ABOUT_FILE`,
+                 $open_all, $_)
+          : join('', $close_all, $INFO,"\n", $open_all, $_));
     $_;
 }
 
-- 
cgit v0.12