Remove some <SPAN> elements that were used only to carry a CLASS

freddrake · freddrake · commit b35f2b7ef805 · 1999-09-23T16:53:09.000Z
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
@@ -77,6 +77,12 @@ package main;
 $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 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, $_));
     $_;
 }
 
