X-Git-Url: https://git.sesse.net/?p=ccbs;a=blobdiff_plain;f=html%2Fregistration.pl;h=a2da719fee68dfcf837221730d58bc07c4222ce6;hp=8811a17547643d99d24c15c2575996efd384196e;hb=5e25e532a03e76374d575105c22453e210e88cdd;hpb=ab4cf29eba0c696e3d73782d93085e617795fda6 diff --git a/html/registration.pl b/html/registration.pl index 8811a17..a2da719 100755 --- a/html/registration.pl +++ b/html/registration.pl @@ -6,16 +6,19 @@ use warnings; my $cgi = new CGI; my $id = $cgi->param('id'); +my $selected_player = $cgi->param('player'); my $dbh = ccbs::db_connect(); my $tournament = $dbh->selectrow_hashref('SELECT * FROM tournaments NATURAL JOIN seasons NATURAL JOIN countries NATURAL JOIN machines NATURAL JOIN scoringsystems WHERE tournament=?', undef, $id); -my $registered = ccbs::db_fetch_all($dbh, 'SELECT * FROM tournamentparticipation NATURAL JOIN players WHERE tournament=?', $id); -my $available = ccbs::db_fetch_all($dbh, 'SELECT * FROM players WHERE player NOT IN ( SELECT player FROM tournamentparticipation WHERE tournament=? ) ORDER BY nick', $id); +my $registered = ccbs::db_fetch_all($dbh, 'SELECT * FROM tournamentparticipation NATURAL JOIN players WHERE tournament=? ORDER BY LOWER(nick)', $id); +my $available = ccbs::db_fetch_all($dbh, 'SELECT * FROM players WHERE player NOT IN ( SELECT player FROM tournamentparticipation WHERE tournament=? ) ORDER BY LOWER(nick)', $id); ccbs::print_header(); ccbs::process_template('registration.tmpl', $tournament->{'tournamentname'}, { + tournament => $tournament, registered => $registered, - available => $available + available => $available, + selected_player => $selected_player }); $dbh->disconnect;