add_link(): Fix to use $section_info instead of $toc_section_info,

	based on email from Ross Moore <ross@mpce.mq.edu.au>.

Set $HTML_VERSION to 4.0, since that's what we really generate (well,
4.0 "transitional").

diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl
index d9ddf1426c6d4b2ce532f2dbecc9f427f5e7d146..301343b7e6429ff1049267436acab5499aacaf29 100644 (file)
--- a/Doc/perl/l2hinit.perl
+++ b/Doc/perl/l2hinit.perl
@@ -13,6 +13,8 @@ use Cwd qw(getcwd);
 
 package main;
 
+$HTML_VERSION = 4.0;
+
 $MAX_LINK_DEPTH = 2;
 $ADDRESS = '';
 
@@ -135,7 +137,7 @@ sub add_link {
     # Returns a pair (iconic link, textual link)
     my($icon, $current_file, @link) = @_;
     my($dummy, $file, $title) = split($delim,
-                                     $toc_section_info{join(' ',@link)});
+                                     $section_info{join(' ',@link)});
     if ($title && ($file ne $current_file)) {
         $title = purify($title);
        $title = get_first_words($title, $WORDS_IN_NAVIGATION_PANEL_TITLES);