Fix detail in welcome prompt for windows users.

[lilypond.git] / Documentation / web-texi2html.init

diff --git a/Documentation/web-texi2html.init b/Documentation/web-texi2html.init
index 881cac51a557b744aae41ab277a8716f2a255695..fb49202c8f365dc65373b739d9056084aecb0d9e 100644 (file)
--- a/Documentation/web-texi2html.init
+++ b/Documentation/web-texi2html.init
@@ -1,6 +1,12 @@
 #!/usr/bin/env perl
 # -*- coding: utf-8; -*-
 
+# this file is a complete mess.  Some things are commented out
+# because that's the only way it works.  About 70% of the code in
+# this file is never called.  All in all, it's in drastic need of
+# a complete review/editing, but we don't have the time right now.
+
+
 ### WTF, perl cannot read a file?
 ###use File::Slurp qw( read_file );
 
@@ -125,7 +131,7 @@ $Texi2HTML::Config::SEPARATED_FOOTNOTES = 0; # Print footnotes on same page, not
 #       should be fixed in lilypond-texi2html.init too
 # Uhm, what about a bug report to Opera?  We need sane names here.
 #if ($Texi2HTML::Config::SPLIT eq 'section') {
-  $Texi2HTML::Config::element_file_name    = \&lilypond_element_file_name;
+#  $Texi2HTML::Config::element_file_name    = \&lilypond_element_file_name;
 #}
 $Texi2HTML::Config::element_target_name  = \&lilypond_element_target_name;
 $default_print_element_header = $Texi2HTML::Config::print_element_header;
@@ -645,7 +651,7 @@ sub generate_ly_toc_entries($$$)
   my @color_3 = (
         "Productions", "Testimonials",
        "Source", "Old downloads",
-        "FAQ", "Changes", "Internals",
+        "FAQ", "Changes", "Extend", "Internals",
         "Publications", "Old news"
         );
   my @color_4 = (
@@ -753,8 +759,8 @@ sub lilypond_generate_page_toc_body($)
     if (!exists($main::value{'shallow_toc'})) {
 # WTF, perl needs 6 lines of magic to do: ' ' + open ('file-name').read ()?
        local $/=undef;
-        my $name = 'search-box.html';
-       open FILE, $name or open FILE, "../$name" or die  die "no such file: $name: $!";
+        my $name = "search-box.html";
+       open FILE, "$ENV{SRC_DIR}/$name" or open FILE, "$ENV{SRC_DIR}/../$name" or die  die "no such file: $name: $!";
 
 # All these also seems to work, but fail silently.  Great, it runs!
 # It's late already, let's this broken site.