Added a simple flag in ccbs.pm to make the system suitable for public viewing (ie...

[ccbs] / html / do-set-active-round.pl

diff --git a/html/do-set-active-round.pl b/html/do-set-active-round.pl
index 4f8caafe682ecae02f0c50338509dd275079d550..5b0376e6b44ea0d908c7bff4b0a3b503e3380df0 100755 (executable)
--- a/html/do-set-active-round.pl
+++ b/html/do-set-active-round.pl
@@ -4,6 +4,8 @@ use ccbs;
 use strict;
 use warnings;
 
+ccbs::admin_only();
+
 my $dbh = ccbs::db_connect();
 my $cgi = new CGI;
 
@@ -11,14 +13,15 @@ my $tournament = $cgi->param('tournament');
 my $round = $cgi->param('round');
 my $parallel = $cgi->param('parallel');
 my $num_machines = $cgi->param('nummachines');
+my $players_per_machine = $cgi->param('playerspermachine');
 
 $dbh->{AutoCommit} = 0;
 
 $dbh->do('DELETE FROM bigscreen.active_groups WHERE tournament=? AND round=? AND parallel=?', undef,
        $tournament, $round, $parallel);
 if ($cgi->param('show') eq 'true') {
-       $dbh->do('INSERT INTO bigscreen.active_groups (tournament, round, parallel, num_machines, last_updated) VALUES (?,?,?,?,now())',
-               undef, $tournament, $round, $parallel, $num_machines);
+       $dbh->do('INSERT INTO bigscreen.active_groups (tournament, round, parallel, num_machines, last_updated, players_per_machine) VALUES (?,?,?,?,now(),?)',
+               undef, $tournament, $round, $parallel, $num_machines, $players_per_machine);
 }
 
 $dbh->do('NOTIFY active_groups');