Added Maynards list

[songbook.git] / web / webchord.cgi

diff --git a/web/webchord.cgi b/web/webchord.cgi
index 47c5255..15a3186 100755 (executable)
--- a/web/webchord.cgi
+++ b/web/webchord.cgi
@@ -27,7 +27,7 @@ my $debug        = param ('debug');
 my $infile       = param ('chordpro');
 
 unless (-f $infile) {
-  $infile = '/opt/songbook/Songs/' . $infile;
+  $infile = '/opt/songbook/Andrew/' . $infile;
 
   unless (-f $infile) {
     $infile = '/web/xmas/' . param ('chordpro');
@@ -75,7 +75,7 @@ sub musicFileExists ($) {
   debug "ENTER musicFileExists ($song)";
   
   my $title     = fileparse ($song, qr/\.pro/);
-  my $musicfile = "/opt/songbook/Media/$title.mp3";
+  my $musicfile = "/opt/media/$title.mp3";
 
   if (-r $musicfile) {
     debug "Exists!";