8 my $id = $cgi->param('id');
10 my $dbh = ccbs::db_connect();
12 my $song = $dbh->selectrow_hashref('SELECT * FROM songs WHERE song=?', undef, $id);
13 my $scores = ccbs::db_fetch_all($dbh, 'SELECT * FROM scores NATURAL JOIN players JOIN tournaments ON scores.tournament=tournaments.tournament WHERE song=? AND score IS NOT NULL ORDER BY score DESC LIMIT 50', $id);
16 ccbs::process_template('song.tmpl', $song->{'title'}, {