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

[ccbs] / html / do-registration.pl

diff --git a/html/do-registration.pl b/html/do-registration.pl
index a81e48a95a581cd5afb1304ec8cc3d7a6a792924..6f7b9e3e0fb278472283a8490f581767581dbe69 100755 (executable)
--- a/html/do-registration.pl
+++ b/html/do-registration.pl
@@ -4,6 +4,8 @@ use ccbs;
 use strict;
 use warnings;
 
+ccbs::admin_only();
+
 my $dbh = ccbs::db_connect();
 my $cgi = new CGI;
 
@@ -14,6 +16,6 @@ my $paid = $cgi->param('paid');
 $dbh->do('INSERT INTO tournamentparticipation (tournament, player, paid) VALUES (?,?,?)',
        undef, $tournament, $player, $paid);
 
-ccbs::print_see_other('registration.pl?id=$tournament');
+ccbs::print_see_other('registration.pl?id=' . $tournament);
 
 $dbh->disconnect;