From: Fred Drake <fdrake@acm.org>
Date: Thu, 4 Jan 2001 15:16:01 +0000 (+0000)
Subject: Fix the bugfix for SF bug #127151 -- make sure we map "previous_page" to
X-Git-Tag: v2.1a1~411
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=b31d36cf014d832d1f4da753e60e9112a350abc4;p=python

Fix the bugfix for SF bug #127151 -- make sure we map "previous_page" to
"previous" and "next_page" to "next".  This way the proper icons are found.
---

diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl
index 4e5ff65e64..4ffcc589f1 100644
--- a/Doc/perl/l2hinit.perl
+++ b/Doc/perl/l2hinit.perl
@@ -117,9 +117,16 @@ $my_icon_tags{'contents'} = 'Contents';
 $my_icon_tags{'index'} = 'Index';
 $my_icon_tags{'modules'} = 'Module Index';
 
+@my_icon_names = ();
+$my_icon_names{'previous_page'} = 'previous';
+$my_icon_names{'next_page'} = 'next';
+
 sub get_my_icon {
     my $name = @_[0];
     my $text = $my_icon_tags{$name};
+    if ($my_icon_names{$name}) {
+        $name = $my_icon_names{$name};
+    }
     if ($text eq '') {
         $name = 'blank';
     }