From 28e7b4cce1bc8186206bdcd1a08b560f55b65923 Mon Sep 17 00:00:00 2001 From: Fred Drake Date: Tue, 20 Oct 1998 18:14:20 +0000 Subject: add_link(): Fix to use $section_info instead of $toc_section_info, based on email from Ross Moore . Set $HTML_VERSION to 4.0, since that's what we really generate (well, 4.0 "transitional"). --- Doc/perl/l2hinit.perl | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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); -- cgit v0.12