From a1fe2ec7e36eb9020d0724cae0b06a392e4d891e Mon Sep 17 00:00:00 2001
From: Graham Percival <graham@percival-music.ca>
Date: Mon, 1 Feb 2010 23:12:30 +0000
Subject: [PATCH] Web build: only lc() the last part of an external href.

Another nasty workaround, although this is our directory system's
fault, not texinfo's.
---
 Documentation/lilypond-texi2html.init | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/Documentation/lilypond-texi2html.init b/Documentation/lilypond-texi2html.init
index 8efff62b10..4a6e1b1582 100644
--- a/Documentation/lilypond-texi2html.init
+++ b/Documentation/lilypond-texi2html.init
@@ -924,7 +924,14 @@ sub lilypond_external_ref($$$$$$)
   my $section = shift;
   my $book = shift;
   my $file_node = shift;
-  my $href = lc(shift);
+  my $href = shift;
+
+  # only lc() the last portion:
+  my @htmlsplit = split('/', $href);
+  # change the last portion (the filename)
+  @htmlsplit[$#array] = lc( @htmlsplit[$#array] );
+  $href = join("/", @htmlsplit);
+
   my $cross_ref = shift;
 
   my $displaytext = '';
-- 
2.39.2