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 $people = ccbs::db_fetch_all($dbh, 'SELECT * FROM tournamentparticipation NATURAL JOIN players WHERE tournament=?', $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);
ccbs::print_header();
ccbs::process_template('registration.tmpl', $tournament->{'tournamentname'}, {
- people => $people
+ registered => $registered,
+ available => $available
});
$dbh->disconnect;
<div>
<ul>
-[% FOR p = people %]
- <li>[% p.nick %]</li>
+[% FOR r = registered %]
+ <li>[% r.nick %]</li>
[% END %]
</ul>
</div>
+
+<h2>PĂ„melding</h2>
+
+<div>
+<form method="post" action="do-registration.pl">
+ <input type="hidden" name="tournament" value="[% tournament.id %]" />
+ <table>
+ <tr>
+ <th>Spiller</th>
+ <td>
+ <select name="player">
+[% FOR a = available %]
+ <option value="[% a.id %]">[% a.nick %]</option>
+[% END %]
+ </select>
+ </td>
+ </tr>
+ <tr>
+ <th>Betalt</th>
+ <td>
+ <select name="paid">
+ <option value="f">Nei</option>
+ <option value="t">Ja</option>
+ </select>
+ </td>
+ </tr>
+ <tr>
+ <th colspan="2">
+ <input type="submit" value="Legg til" />
+ </th>
+ </tr>
+ </table>
+</form>
+</div>