From: Reinhold Kainhofer <reinhold@kainhofer.com>
Date: Mon, 21 Jul 2008 21:15:59 +0000 (+0200)
Subject: texi2html: If we have no numbered sec, use the first unnumbered for the filename
X-Git-Tag: release/2.11.58-1~32^2~102
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=b542f97b00c57ddd5c825c4e48497b60cd4d7117;p=lilypond.git

texi2html: If we have no numbered sec, use the first unnumbered for the filename
---

diff --git a/lilypond-texi2html.init b/lilypond-texi2html.init
index 46b4db5f8f..77adfaea82 100644
--- a/lilypond-texi2html.init
+++ b/lilypond-texi2html.init
@@ -255,7 +255,11 @@ sub split_at_numbered_sections($$$)
 
     # derive the name of the anchor (i.e. the part after # in the links!),
     # don't use texi2html's SECx.x default!
-    my $sec_name = main::remove_texi($$element{texi});
+    
+    my $sec_name = main::remove_texi($element->{'texi'});
+    if ($element->{'node_ref'}->{'texi'} ne '') { # if we have a node, use its name:
+      $sec_name = main::remove_texi($element->{'node_ref'}->{'texi'});
+    }
     my $anchor = $sec_name;
     if ($$element{translationof}) {
       $anchor = main::remove_texi($$element{translationof});
@@ -265,7 +269,7 @@ sub split_at_numbered_sections($$$)
     $$element{id} = $anchor;
     # Numbered sections will get a filename Node_title, unnumbered sections will use
     # the file name of the previous numbered section:
-    if ($$element{number} or $lastfilename == '') {
+    if (($element->{number}) or ($lastfilename eq '')) {
       my $filename = $anchor;
       $filename .= ".$docu_ext" if (defined($docu_ext));
       $docnr += 1;