Revert change to wrong branch.
[ccbs] / html / do-registration.pl
1 #! /usr/bin/perl
2
3 use ccbs;
4 use strict;
5 use warnings;
6
7 ccbs::admin_only();
8
9 my $dbh = ccbs::db_connect();
10 my $cgi = new CGI;
11
12 my $tournament = $cgi->param('tournament');
13 my $player = $cgi->param('player');
14 my $paid = $cgi->param('paid');
15
16 $dbh->do('INSERT INTO tournamentparticipation (tournament, player, paid) VALUES (?,?,?)',
17         undef, $tournament, $player, $paid);
18
19 ccbs::print_see_other('registration.pl?id=' . $tournament);
20
21 $dbh->disconnect;