my $num_games = scalar keys %prob;
- # Make list of ranks.
+ # Make list of ranks. (Relegation is handled specially.)
my @ranks = ();
for my $i (1..$num_games) {
push @ranks, { 'th' => "$i." };
}
- push @ranks, { 'th' => 'NEDRYKK' } unless ($lowest_division);
my @players = ();
};
}
- return {
+ my $parms = {
'ranks' => \@ranks,
'tbody' => \@players,
};
+ $parms->{'relegation'} = '' if ($lowest_division);
+ return $parms;
}
sub make_cov_table {