[Python-checkins] CVS: python/dist/src/Doc/perl l2hinit.perl,1.51,1.52

[Fred L. Drake]

Update of /cvsroot/python/python/dist/src/Doc/perl
In directory usw-pr-cvs1:/tmp/cvs-serv18910/perl

Modified Files:
	l2hinit.perl 
Log Message:

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.


Index: l2hinit.perl
===================================================================
RCS file: /cvsroot/python/python/dist/src/Doc/perl/l2hinit.perl,v
retrieving revision 1.51
retrieving revision 1.52
diff -C2 -r1.51 -r1.52
*** l2hinit.perl	2001/01/02 22:08:48	1.51
--- l2hinit.perl	2001/01/04 15:16:01	1.52
***************
*** 118,124 ****
--- 118,131 ----
  $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';