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;
# 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) {
+if ($closing_valid && (scalar @rounds > 0 && scalar @{$rounds[$#rounds]->{'parallels'}}) == 1) {
$finishing_valid = 1;
}
$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,