X-Git-Url: https://git.sesse.net/?p=ccbs;a=blobdiff_plain;f=html%2Fshow-tournament.pl;h=f5ecf31955d859f450cdc65b9f73b304ab982f6b;hp=01c301e4f0f2b833ae9791611950699b54203e59;hb=51688d09a1427570771507ac69255071752d7385;hpb=b0b74d8d081b73ba0716ae4edd25dde9c63a3aef diff --git a/html/show-tournament.pl b/html/show-tournament.pl index 01c301e..f5ecf31 100755 --- a/html/show-tournament.pl +++ b/html/show-tournament.pl @@ -16,7 +16,8 @@ my $songs = ccbs::db_fetch_all($dbh, 'SELECT song,title FROM machinesongs NATURA # 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; +my ($closing_valid,$finishing_valid); +$finishing_valid = 0; if ($ref->{'num_incomplete'} == 0) { $closing_valid = 1; } else { @@ -60,7 +61,7 @@ for my $score (@$scores) { my $pl = $p->[$#$p]->{'players'}; if ($score->{'nick'} ne $player) { $player = $score->{'nick'}; - push @$pl, { player => $score->{'player'}, nick => $player, songs => [], total => 0 }; + push @$pl, { player => $score->{'player'}, nick => $player, songs => [], total => 0, rank => 1 }; } push @{$pl->[$#$pl]->{'songs'}}, $score; @@ -70,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; @@ -78,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 > 0 && 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; @@ -89,6 +99,14 @@ if ($num_rounds == 0) { $num_qualified = $ref->{'numqualifying'}; } +# And last: If there is a ranking list, the tournament is closed and we really can't +# do anything more +if ($num_rankings > 0) { + $closing_valid = 0; + $finishing_valid = 0; + $rounds[$#rounds]->{'locked'} = 1; +} + ccbs::print_header(); ccbs::process_template('show-tournament.tmpl', $tournament->{'tournamentname'}, { tournament => $tournament, @@ -98,6 +116,7 @@ ccbs::process_template('show-tournament.tmpl', $tournament->{'tournamentname'}, num_rounds => $num_rounds, num_qualified => $num_qualified, songs => $songs, - closing_valid => $closing_valid + closing_valid => $closing_valid, + finishing_valid => $finishing_valid }); $dbh->disconnect;