Revert change to wrong branch.

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

diff --git a/html/do-add-tournament.pl b/html/do-add-tournament.pl
index ddacad5c8677b34a9ad6ed88d517bb2424a6d09d..50efd381a64dc90342aaa5ef83e03d3dcbcba8f0 100755 (executable)
--- a/html/do-add-tournament.pl
+++ b/html/do-add-tournament.pl
@@ -4,6 +4,8 @@ use ccbs;
 use strict;
 use warnings;
 
 use strict;
 use warnings;
 

+ccbs::admin_only();
+

 my $dbh = ccbs::db_connect();
 my $cgi = new CGI;
 
 my $dbh = ccbs::db_connect();
 my $cgi = new CGI;
 


@@ -16,7 +18,7 @@ my $machine = $cgi->param('machine');
 my $scoringsystem = $cgi->param('scoringsystem');
 
 if ($date !~ /^ ( \d{4} - \d\d - \d\d ) $/x) {
 my $scoringsystem = $cgi->param('scoringsystem');
 
 if ($date !~ /^ ( \d{4} - \d\d - \d\d ) $/x) {

-       die "Ugyldig dato (må være på YYYY-MM-DD)";
+       ccbs::user_error("Ugyldig dato (må være på formen YYYY-MM-DD).");

 }
 
 $dbh->do('INSERT INTO tournaments (season, tournamentname, country, location, date, machine, scoringsystem) VALUES (?,?,?,?,?,?,?)',
 }
 
 $dbh->do('INSERT INTO tournaments (season, tournamentname, country, location, date, machine, scoringsystem) VALUES (?,?,?,?,?,?,?)',