From 216b249e94f2ae385f6a62dd921222a6b66dd817 Mon Sep 17 00:00:00 2001 From: Fred Drake Date: Thu, 9 Sep 2004 05:13:52 +0000 Subject: 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) --- Doc/perl/l2hinit.perl | 20 ++++++++++---------- 1 file 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 = ('' . "\n" # left-hand side - . "\n" - . "\n" - . "\n" + . "\n" + . "\n" + . "\n" # title box . "\n" # right-hand side - . "\n" + . "\n" # module index . "\n" - . "\n" + . "\n" . "\n
$PREVIOUS$UP$NEXT$previous$up$next$t_title$CONTENTS$contents$CUSTOM_BUTTONS$INDEX$index
\n" # textual navigation . "
\n" -- cgit v0.12