X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=web%2Fwebchord.cgi;fp=web%2Fwebchord.cgi;h=20140cc4a0965a6dd609a10b2f30fbbca5ddc781;hb=2ebc4c90a17f94ae083baaacd54cbdf6fe58cddc;hp=c9bb1e37aa350620e10bbeab3017a7b1d18fe929;hpb=2fb943c1fddeea9cd48e8a8bb3af5ac38506e06f;p=songbook.git

diff --git a/web/webchord.cgi b/web/webchord.cgi
index c9bb1e3..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 <<END;
+
+  print <<"END";
 <html>
 <head>
 <title>$title</title>
@@ -164,12 +164,13 @@ END
         updateMusicpath $chopro, $song;
       } # if
 
+      my $titleLink = "<a href=\"/songbook/pro/$title.pro\">$title</a>";
       print << "END";
 <table id="heading">
   <tbody>
     <tr>
       <td align="left"><a href="/songbook"><img src="/Icons/Home.png" alt="Home"></a></td>
-      <td><div id="title">$title</div>
+      <td><div id="title">$titleLink</div>
           <div id="artist"><a href="/songbook/displayartist.php?artist=$artist">$artist</a></div></td>
       <td align="right" width="300px">
         <audio id="song" controls autoplay style="padding:0; margin:0">
@@ -242,8 +243,7 @@ END
       } else {
         print "<table cellpadding=0 cellspacing=0>";
         print "<tr>\n";
-        my($i);
-        for($i = 0; $i < @chords; $i++) {
+        for(my $i = 0; $i < @chords; $i++) {
           print "<td class=\"$cClasses[$mode]\">$chords[$i]</td>";
         }
         print "</tr>\n<tr>\n";
