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

[ccbs] / html / do-edit-scores.pl

diff --git a/html/do-edit-scores.pl b/html/do-edit-scores.pl
index 4c83b7ce538ece6a26a019cbbb8825f83684cf29..898d5dbc4f9c0bacadae2db46cfc5d75f9aa2e84 100755 (executable)
--- a/html/do-edit-scores.pl
+++ b/html/do-edit-scores.pl
@@ -4,6 +4,8 @@ use ccbs;
 use strict;
 use warnings;
 
+ccbs::admin_only();
+
 my $dbh = ccbs::db_connect();
 my $cgi = new CGI;
 
@@ -72,10 +74,12 @@ for my $p ($cgi->param()) {
        }
 }
 
+$dbh->do('UPDATE bigscreen.active_groups SET last_updated=now() WHERE tournament=? AND round=? AND parallel=?',
+       undef, $tournament, $round, $group);
 $dbh->do('NOTIFY scores');
 
 $dbh->commit;
 $dbh->disconnect;
 
-ccbs::print_see_other('show-tournament.pl?id=' . $tournament);
+ccbs::print_see_other('show-tournament.pl?id=' . $tournament . '#round' . $round);