X-Git-Url: https://git.sesse.net/?p=ccbs;a=blobdiff_plain;f=html%2Fshow-tournament.pl;h=3a407f80e99dafa1848bcc03c697f261179c7940;hp=66045290975b347a0b33b8f458595be924846429;hb=49e5792858da785cf814fe529b6e9ddbfb326595;hpb=63098578f8c09a941e510664a07b3ad484d3ebe3 diff --git a/html/show-tournament.pl b/html/show-tournament.pl index 6604529..3a407f8 100755 --- a/html/show-tournament.pl +++ b/html/show-tournament.pl @@ -13,6 +13,17 @@ my $tournament = $dbh->selectrow_hashref('SELECT * FROM tournaments NATURAL JOIN my $rankings = ccbs::db_fetch_all($dbh, 'SELECT ranking,nick,COALESCE(points,-1) AS points FROM tournamentrankings NATURAL JOIN players WHERE tournament=? ORDER BY ranking', $id); my $songs = ccbs::db_fetch_all($dbh, 'SELECT song,title FROM machinesongs NATURAL JOIN songs WHERE machine=? ORDER BY LOWER(title)', $tournament->{'machine'}); +# Check if the last round is valid for closing (by checking if all scores +# entered are valid) +my $ref = $dbh->selectrow_hashref('SELECT COUNT(*) AS num_incomplete FROM scores WHERE tournament=? AND (song IS NULL OR playmode IS NULL OR difficulty IS NULL OR chosen IS NULL or score IS NULL)', undef, $tournament->{'tournament'}); +my ($closing_valid,$finishing_valid); +$finishing_valid = 0; +if ($ref->{'num_incomplete'} == 0) { + $closing_valid = 1; +} else { + $closing_valid = 0; +} + # Swoop all the data in in a big join, then order it over to quasi-sane Perl objects. # (round -> parallel -> player -> songs -> title,chosen,score) my $scores = ccbs::db_fetch_all($dbh, @@ -60,6 +71,9 @@ for my $score (@$scores) { } } +# FIXME: In some odd cases, there _might_ be an empty group right at the end. Fix this when +# we are able to add/delete people in groups. + my $num_rounds = scalar @rounds; my $num_rankings = scalar @$rankings; @@ -68,6 +82,12 @@ for my $r (0..$#rounds-1) { $rounds[$r]->{'locked'} = 1; } +# If there's only one group left and it's valid for closing, we can also finish +# the entire tournament if we'd like +if ($closing_valid && (scalar @{$rounds[$#rounds]->{'parallels'}}) == 1) { + $finishing_valid = 1; +} + # If there have been no rounds, check out the number of participants; if not, check the # number of qualified from the last round my $num_qualified; @@ -87,6 +107,8 @@ ccbs::process_template('show-tournament.tmpl', $tournament->{'tournamentname'}, rounds => \@rounds, num_rounds => $num_rounds, num_qualified => $num_qualified, - songs => $songs + songs => $songs, + closing_valid => $closing_valid, + finishing_valid => $finishing_valid }); $dbh->disconnect;