Revert change to wrong branch.
[ccbs] / html / set-active-tournament.pl
1 #! /usr/bin/perl
2
3 use ccbs;
4 use strict;
5 use warnings;
6
7 my $dbh = ccbs::db_connect();
8 my $tournaments = ccbs::db_fetch_all($dbh, 'SELECT * FROM tournaments');
9 my $ref = $dbh->selectrow_hashref('SELECT * FROM bigscreen.active_tournament');
10 my $active_tournament = (defined($ref)) ? $ref->{'tournament'} : -1;
11
12 ccbs::print_header();
13 ccbs::process_template('set-active-tournament.tmpl', 'Sett aktiv turnering', {
14                 tournaments => $tournaments,
15                 active_tournament => $active_tournament
16         });
17
18 $dbh->disconnect;