Revert change to wrong branch.

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

diff --git a/html/do-set-active-tournament.pl b/html/do-set-active-tournament.pl
index 297cc6c71ab59d4d79626a54532629bc2a4cca45..3a15a939be00fe3a748287b0867546045d7524b9 100755 (executable)
--- a/html/do-set-active-tournament.pl
+++ b/html/do-set-active-tournament.pl
@@ -4,12 +4,15 @@ use ccbs;
 use strict;
 use warnings;
 
+ccbs::admin_only();
+
 my $dbh = ccbs::db_connect();
 my $cgi = new CGI;
 
 my $tournament = $cgi->param('tournament');
 $dbh->{AutoCommit} = 0;
 
+$dbh->do('DELETE FROM bigscreen.active_groups');
 $dbh->do('DELETE FROM bigscreen.active_tournament');
 if ($tournament != -1) {
        $dbh->do('INSERT INTO bigscreen.active_tournament VALUES (?)', undef, $tournament);