[Python-checkins] python/dist/src/Doc/perl l2hinit.perl,1.82,1.83

[fdrake at users.sourceforge.net]

Update of /cvsroot/python/python/dist/src/Doc/perl
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29416

Modified Files:
	l2hinit.perl 
Log Message:
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)


Index: l2hinit.perl
===================================================================
RCS file: /cvsroot/python/python/dist/src/Doc/perl/l2hinit.perl,v
retrieving revision 1.82
retrieving revision 1.83
diff -u -d -r1.82 -r1.83
--- l2hinit.perl	19 Aug 2004 01:37:48 -0000	1.82
+++ l2hinit.perl	9 Sep 2004 05:13:52 -0000	1.83
@@ -182,27 +182,27 @@
 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"