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.
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 @@
$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 @@
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 @@
}
}
$_ = (($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, $_));
$_;
}