From ad3b3223fd209b39efd5468d58cd8add9259a185 Mon Sep 17 00:00:00 2001
From: Reinhold Kainhofer <reinhold@kainhofer.com>
Date: Wed, 26 Mar 2008 00:38:43 +0100
Subject: [PATCH] texi2html: Fix section names in navigation links

I messed those up while updating the function to generate the navigation
with the new accesskey code...
---
 lilypond-texi2html.init | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

diff --git a/lilypond-texi2html.init b/lilypond-texi2html.init
index 2dc663efaa..005f71223f 100644
--- a/lilypond-texi2html.init
+++ b/lilypond-texi2html.init
@@ -247,7 +247,7 @@ sub get_navigation_text
   } elsif ( ($button eq 'Forward') or ($button eq 'FastForward') ) {
     $text = "&nbsp;" . $Texi2HTML::NODE{$button} . $text;
   } elsif ( $button eq 'Up' ) {
-    $text = "&nbsp;Up:&nbsp;" . $Texi2HTML::NODE{$button} . "&nbsp;";
+    $text = "&nbsp;".$text.":&nbsp;" . $Texi2HTML::NODE{$button} . "&nbsp;";
   }
   return $text;
 }
@@ -319,14 +319,13 @@ sub lilypond_print_navigation
                   print $fh "" .
                         &$anchor('',
                                     $Texi2HTML::HREF{$button_href},
-                                    $$text,
+                                    get_navigation_text($$text),
                                     $anchor_attributes
-                                   ) 
-                                    ;
+                                   );
                 }
                 else
                 {
-                  print $fh $$text;
+                  print $fh get_navigation_text($$text);
                 }
             }
         }
@@ -367,7 +366,7 @@ sub lilypond_print_navigation
                     '[' .
                         &$anchor('',
                                     $Texi2HTML::HREF{$button},
-                                    $NAVIGATION_TEXT{$button},
+                                    get_navigation_text ($button),
                                     $btitle
                                    ) .
                                        ']';
@@ -381,7 +380,7 @@ sub lilypond_print_navigation
                                           $PASSIVE_ICONS{$button},
                                           $Texi2HTML::SIMPLE_TEXT{$button}) :
 
-                                              "[" . $NAVIGATION_TEXT{$button} . "]";
+                                              "[" . get_navigation_text($button) . "]";
         }
         print $fh "</td>\n" if $vertical;
         print $fh "</tr>\n" if $vertical;
-- 
2.39.2