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";
}
?>