Hide rankinglist if there is none. Count the number of qualified for next round.

[ccbs] / html / show-tournament.pl

diff --git a/html/show-tournament.pl b/html/show-tournament.pl
index 87df626191e301cd01851f47e8b59a2ebd7d7c03..57bd379a16f2a68df1b2430f4bc619e84e7754a7 100755 (executable)
--- a/html/show-tournament.pl
+++ b/html/show-tournament.pl
@@ -62,12 +62,26 @@ for my $score (@$scores) {
 }
 
 my $num_rounds = scalar @rounds;
+my $num_rankings = scalar @$rankings;
+
+# 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;
+if ($num_rounds == 0) {
+       my $ref = $dbh->selectrow_hashref('SELECT COUNT(*) AS num_participants FROM tournamentparticipation WHERE tournament=?', undef, $id);
+       $num_qualified = $ref->{'num_participants'};
+} else {
+       my $ref = $dbh->selectrow_hashref('SELECT numqualifying FROM roundparticipation WHERE tournament=? AND round=?', undef, $id, $num_rounds);
+       $num_qualified = $ref->{'numqualifying'};
+}
 
 ccbs::print_header();
 ccbs::process_template('show-tournament.tmpl', $tournament->{'tournamentname'}, {
        tournament => $tournament,
        rankings => $rankings,
+       num_rankings => $num_rankings,
        rounds => \@rounds,
-       num_rounds => $num_rounds
+       num_rounds => $num_rounds,
+       num_qualified => $num_qualified
 });
 $dbh->disconnect;