From: Graham Percival <graham@percival-music.ca>
Date: Mon, 1 Feb 2010 23:12:30 +0000 (+0000)
Subject: Web build: only lc() the last part of an external href.
X-Git-Tag: release/2.13.12-1~7
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=a1fe2ec7e36eb9020d0724cae0b06a392e4d891e;p=lilypond.git

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.
---

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 = '';