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").

1 files changed, 3 insertions, 1 deletions

diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl
index d9ddf14..301343b 100644
--- 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);