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

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

\n"; // annotation tag table print "
\n";
  printScoreHdr1();
  $tags = readScoreTagVals($ID);
  printScoreTagVals($tags, true);
  print "
";

  // score BASE name
  if (is_numeric(substr($ID, 0, 2)))
    $ID = "EB" . $ID;
  $DIR=scoreRoot() . "/" . substr($ID, 0, 4);
  $BASE=$DIR . "/" . $ID;

  // audio?
  $al = audioLink($ID);
  if ( strlen($al) > 0)
    print 'Audio sample';

  // notational key?
  if (substr($ID,0,4) == "ML00") 
    print '  Key to ornaments.';

  // digitized scores
  print "  Other formats available:";
  $EXTS = array("pdf", "ly", "mus", "xml");
  $EXTNAMES = array("PDF", "Lilypond", "Finale", "MusicXML");
  $CT = 0;
  for ($i=0; $i' . $NAME . '';
      $CT++;
    }
  }
  if ($CT == 0) 
    print ' none';
  print ' (more about formats)';

  // score bitmap image
  print "\n";
  $GIF=$BASE . ".gif";
  if (file_exists($GIF))
    print '';
  else
    print '
This score is not currently '
       . 'on-line.
';
?>