From db0ad5d26edf35c4dbc430aea879f730fcc33ae1 Mon Sep 17 00:00:00 2001
From: Francisco Vila <address@hidden>
Date: Wed, 19 May 2010 17:10:02 +0200
Subject: [PATCH] Doc-build: make remove_unneeded_anchor actually work

---
 Documentation/lilypond-texi2html.init |    8 ++++----
 1 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/Documentation/lilypond-texi2html.init b/Documentation/lilypond-texi2html.init
index 3438478..c247646 100644
--- a/Documentation/lilypond-texi2html.init
+++ b/Documentation/lilypond-texi2html.init
@@ -1107,14 +1107,14 @@ sub lilypond_external_href($$$)
 
 sub remove_unneeded_anchor($)
 {
-  my $ref = shift;
+  my $href = shift;
   my @hrefsplit = split("/", $href);
   for ($i = 0; $i < @hrefsplit; $i++) {
     $item = @hrefsplit[$i];
     if ($item =~ /#/) {
-      @splitted = split("#", $item);
-      if (@splitted[0] == @splitted[1]) {
-        @hrefsplit[$i] = @splitted[0]
+      @splitted = split(".html#", $item);
+      if (@splitted[0] eq @splitted[1]) {
+	  @hrefsplit[$i] = @splitted[0] . ".html";
       }
     }
   }
-- 
1.7.0.4