summaryrefslogtreecommitdiffstats
path: root/Doc/perl
diff options
context:
space:
mode:
authorFred Drake <fdrake@acm.org>1998-10-20 18:14:20 (GMT)
committerFred Drake <fdrake@acm.org>1998-10-20 18:14:20 (GMT)
commit28e7b4cce1bc8186206bdcd1a08b560f55b65923 (patch)
treeaab6c0567161863e934859a8256704f64be75203 /Doc/perl
parent8fd0f147e74138b8046ba42c083e61e24dfecad2 (diff)
downloadcpython-28e7b4cce1bc8186206bdcd1a08b560f55b65923.zip
cpython-28e7b4cce1bc8186206bdcd1a08b560f55b65923.tar.gz
cpython-28e7b4cce1bc8186206bdcd1a08b560f55b65923.tar.bz2
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").
Diffstat (limited to 'Doc/perl')
-rw-r--r--Doc/perl/l2hinit.perl4
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);