Added a simple flag in ccbs.pm to make the system suitable for public viewing (ie...
[ccbs] / html / do-set-paid.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('UPDATE tournamentparticipation SET paid=? WHERE tournament=? AND player=?',
17         undef, $paid, $tournament, $player);
18
19 ccbs::print_see_other('registration.pl?id=' . $tournament);
20
21 $dbh->disconnect;