Replace the web frontend's rank calculations with the stored procedures.

[ccbs] / html / do-add-player.pl

diff --git a/html/do-add-player.pl b/html/do-add-player.pl
index 7817b14349b00207edc629e61ea6cd6b3e51f75b..39b46f70d3c3c163bf9abc0d2edb0dcfd47a9728 100755 (executable)
--- a/html/do-add-player.pl
+++ b/html/do-add-player.pl
@@ -4,13 +4,19 @@ use ccbs;
 use strict;
 use warnings;
 
+ccbs::admin_only();
+
 my $dbh = ccbs::db_connect();
 my $cgi = new CGI;
 
 my $tournament = $cgi->param('tournament');
 my $nick = $cgi->param('nick');
+my $country = $cgi->param('country');
+my $club = $cgi->param('club');
+
+$club = undef if ($club == -1);
 
-$dbh->do('INSERT INTO players (nick) VALUES (?)', undef, $nick);
+$dbh->do('INSERT INTO players (nick, country, club) VALUES (?, ?, ?)', undef, $nick, $country, $club);
 my $ref = $dbh->selectrow_hashref('SELECT player FROM players WHERE nick=?',
        undef, $nick);