Reset bigscreen on changed groups, not just changed tournaments.

[ccbs] / html / randomsongs.pl

#! /usr/bin/perl

use ccbs;
use strict;
use warnings;

my $dbh = ccbs::db_connect();

my $ref = $dbh->selectrow_hashref('SELECT COUNT(*) AS num_used FROM randomsongsused');

ccbs::print_header();
ccbs::process_template('randomsongs.tmpl', 'Sangvelger', {
                num_used => $ref->{'num_used'}
        });

$dbh->disconnect;