8 my $id = $cgi->param('id');
10 my $dbh = ccbs::db_connect();
12 my $player = $dbh->selectrow_hashref('SELECT * FROM players NATURAL JOIN countries NATURAL LEFT JOIN clubs WHERE player=?', undef, $id);
13 my $bestsongs = ccbs::db_fetch_all($dbh, 'SELECT song,title,score,tournament,tournamentname FROM ( SELECT DISTINCT ON (song) song,score,tournament FROM scores WHERE player=? AND score IS NOT NULL ORDER BY song,score DESC ) t1 NATURAL JOIN songs NATURAL JOIN tournaments ORDER BY score DESC LIMIT 10', $id);
15 # Fetch all scores and count a bit
18 my $last_title = undef;
20 my $scores = ccbs::db_fetch_all($dbh, 'SELECT title,score FROM scores NATURAL JOIN songs WHERE player=? ORDER BY title,score DESC', $id);
21 for my $score (@$scores) {
22 my $title = $score->{'title'};
23 if (!defined($last_title) || $title ne $last_title) {
24 push @allsongs, { title => $title, scores => [] };
27 push @{$allsongs[$#allsongs]->{'scores'}}, $score->{'score'};
29 my $this_columns = scalar @{$allsongs[$#allsongs]->{'scores'}};
30 $columns = $this_columns if ($this_columns > $columns);
36 ccbs::process_template('player.tmpl', $player->{'title'}, {
38 bestsongs => $bestsongs,
39 allsongs => \@allsongs,