Revert change to wrong branch.
[ccbs] / html / add-tournament.pl
1 #! /usr/bin/perl
2
3 use ccbs;
4 use strict;
5 use warnings;
6
7 my $dbh = ccbs::db_connect();
8
9 # Fetch stuff we'll use in the form
10 my $seasons = ccbs::db_fetch_all($dbh, 'SELECT * FROM seasons');
11 my $countries = ccbs::db_fetch_all($dbh, 'SELECT * FROM countries');
12 my $machines = ccbs::db_fetch_all($dbh, 'SELECT * FROM machines');
13 my $scoringsystems = ccbs::db_fetch_all($dbh, 'SELECT * FROM scoringsystems');
14
15 ccbs::print_header();
16 ccbs::process_template('add-tournament.tmpl', 'Legg til turnering', {
17                 seasons => $seasons,
18                 countries => $countries,
19                 machines => $machines,
20                 scoringsystems => $scoringsystems,
21         });
22
23 $dbh->disconnect;