diff options
| author | Fred Drake <fdrake@acm.org> | 2004-09-09 05:13:52 (GMT) |
|---|---|---|
| committer | Fred Drake <fdrake@acm.org> | 2004-09-09 05:13:52 (GMT) |
| commit | 216b249e94f2ae385f6a62dd921222a6b66dd817 (patch) | |
| tree | 9ca5a73cf5760ccc7bec752597c25fe669c76563 /Doc/perl | |
| parent | 583359ed2e9696bcb1ca0223a4763074c19756d6 (diff) | |
| download | cpython-216b249e94f2ae385f6a62dd921222a6b66dd817.zip cpython-216b249e94f2ae385f6a62dd921222a6b66dd817.tar.gz cpython-216b249e94f2ae385f6a62dd921222a6b66dd817.tar.bz2 | |
make_nav_panel(): Don't cause side-effects on the input variables;
this caused duplicate attributes for the bottom navigation panel.
(closes SF patch #1013055; backport candidate)
Diffstat (limited to 'Doc/perl')
| -rw-r--r-- | Doc/perl/l2hinit.perl | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl index 8c670a7..106a74e 100644 --- a/Doc/perl/l2hinit.perl +++ b/Doc/perl/l2hinit.perl @@ -182,27 +182,27 @@ sub use_icon($$$) { sub make_nav_panel() { my $s; # new iconic rel iconic page title - $NEXT = use_icon('next', $NEXT, unlinkify($NEXT_TITLE)); - $UP = use_icon('parent', $UP, unlinkify($UP_TITLE)); - $PREVIOUS = use_icon('prev', $PREVIOUS, unlinkify($PREVIOUS_TITLE)); - $CONTENTS = use_icon('contents', $CONTENTS, 'Table of Contents'); - $INDEX = use_icon('index', $INDEX, 'Index'); + my $next = use_icon('next', $NEXT, unlinkify($NEXT_TITLE)); + my $up = use_icon('parent', $UP, unlinkify($UP_TITLE)); + my $previous = use_icon('prev', $PREVIOUS, unlinkify($PREVIOUS_TITLE)); + my $contents = use_icon('contents', $CONTENTS, 'Table of Contents'); + my $index = use_icon('index', $INDEX, 'Index'); if (!$CUSTOM_BUTTONS) { $CUSTOM_BUTTONS = get_my_icon('blank'); } $s = ('<table align="center" width="100%" cellpadding="0" cellspacing="2">' . "\n<tr>" # left-hand side - . "\n<td class='online-navigation'>$PREVIOUS</td>" - . "\n<td class='online-navigation'>$UP</td>" - . "\n<td class='online-navigation'>$NEXT</td>" + . "\n<td class='online-navigation'>$previous</td>" + . "\n<td class='online-navigation'>$up</td>" + . "\n<td class='online-navigation'>$next</td>" # title box . "\n<td align=\"center\" width=\"100%\">$t_title</td>" # right-hand side - . "\n<td class='online-navigation'>$CONTENTS</td>" + . "\n<td class='online-navigation'>$contents</td>" # module index . "\n<td class='online-navigation'>$CUSTOM_BUTTONS</td>" - . "\n<td class='online-navigation'>$INDEX</td>" + . "\n<td class='online-navigation'>$index</td>" . "\n</tr></table>\n" # textual navigation . "<div class='online-navigation'>\n" |