X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=web%2Fwebchord.cgi;h=20140cc4a0965a6dd609a10b2f30fbbca5ddc781;hb=2ebc4c90a17f94ae083baaacd54cbdf6fe58cddc;hp=a64b4c1531c1cc927acbd5c697fb3d74d989287c;hpb=4b532d27ad4ad7d71bb190f7974b3129ee114b22;p=songbook.git diff --git a/web/webchord.cgi b/web/webchord.cgi index a64b4c1..20140cc 100755 --- a/web/webchord.cgi +++ b/web/webchord.cgi @@ -19,7 +19,7 @@ use CGI qw(:standard); use CGI::Carp qw (fatalsToBrowser); use File::Basename; -my ($chopro, $output, $i); +my ($chopro, $i); my $documentRoot = "/web"; my $debug = param ('debug'); @@ -83,7 +83,7 @@ sub musicFileExists ($) { } else { debug "Could not find $musicfile"; - return undef; + return; } # if } # musicFileExists @@ -144,8 +144,8 @@ sub chopro2html ($$) { if (($chopro =~ /^{subtitle:(.*)}/mi) || ($chopro =~ /^{st:(.*)}/mi)) { $artist = $1; } # if - - print < $title @@ -164,18 +164,23 @@ END updateMusicpath $chopro, $song; } # if + my $titleLink = "$title"; print << "END"; - @@ -238,8 +243,7 @@ END } else { print "
Home
$title
+
$titleLink
 +
+

Mark A: + not set + Mark B: + not set
"; print "\n"; - my($i); - for($i = 0; $i < @chords; $i++) { + for(my $i = 0; $i < @chords; $i++) { print ""; } print "\n\n";
$chords[$i]