git.sesse.net Git - ccbs/blob - 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;