From: Fred Drake <fdrake@acm.org>
Date: Tue, 20 Oct 1998 18:14:20 +0000 (+0000)
Subject: add_link():  Fix to use $section_info instead of $toc_section_info,
X-Git-Tag: v1.5.2b1~300
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=28e7b4cce1bc8186206bdcd1a08b560f55b65923;p=python

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 d9ddf1426c..301343b7e6 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);