0) { $ID = $argv[1]; } else { $ID=safeQueryString(); } print "EMDB album " . $ID . "\n"; readfile("style.html"); print "\n"; print "\n"; print "

Erik's Music Database - album " . $ID . "

\n"; printBanner(""); $stags = scoreRefineTags(); $gcts = readScoreTagCounts(); $grcts = $gcts["RE"]; print "

\n";

  // print record tabl
  print "\n";
  @printRecHdr();
  $tags = readRecTagVals($ID);
  updateRecTagValsNS($tags, $grcts);
  @printRecTagVals($tags, true);
  print "
\n"; // TD link, if available $tdlink = tdLink($tags["DB"]); if ($tdlink != null) print "More info for this album at folklorediscography.org\n"; // show cover image if available $cimg = coverImage($ID); if (file_exists($cimg)) print '' . "\n"; // print track tables @ $nt = $tags["NT"]; if ($nt > 0) { $tagset = readTrackTagset($ID); printTrackTagset($tagset); } else { print "

No track list is currently available for this recording.

\n"; } // print score table @ $ns = $tags["NS"]; if ($ns > 0) { print "\n"; print "Score table\n"; @printScoreHdr1(); $sids = readMap("SC", "RE", $ID); foreach ($sids as $sid) { $stagvals = readScoreTagVals($sid); printScoreTagVals($stagvals, false); } print "
\n"; } else { print "

No scores are currently available for this recording.

\n"; } ?>