diff options
| author | Fred Drake <fdrake@acm.org> | 1998-10-20 18:14:20 (GMT) |
|---|---|---|
| committer | Fred Drake <fdrake@acm.org> | 1998-10-20 18:14:20 (GMT) |
| commit | 28e7b4cce1bc8186206bdcd1a08b560f55b65923 (patch) | |
| tree | aab6c0567161863e934859a8256704f64be75203 /Doc/perl/l2hinit.perl | |
| parent | 8fd0f147e74138b8046ba42c083e61e24dfecad2 (diff) | |
| download | cpython-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/l2hinit.perl')
| -rw-r--r-- | Doc/perl/l2hinit.perl | 4 |
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); |