texi2html: Fix section names in navigation links

[lilypond.git] / lilypond-texi2html.init

diff --git a/lilypond-texi2html.init b/lilypond-texi2html.init
index 2dc663efaa3e7436baeff55219ab8bad02ba59e2..005f71223f255177fd901641bb931ff94e3199e2 100644 (file)
--- 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 = " " . $Texi2HTML::NODE{$button} . $text;
   } elsif ( $button eq 'Up' ) {
-    $text = " Up: " . $Texi2HTML::NODE{$button} . " ";
+    $text = " ".$text.": " . $Texi2HTML::NODE{$button} . " ";
   }
   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;