Make the relegation text translatable.

[wloh] / www / index.pl

diff --git a/www/index.pl b/www/index.pl
index 4fef4a7e4e319abe764e9edf78b844412cbb753d..efa55175bd828ef927a485e0d6172004fc138435 100755 (executable)
--- a/www/index.pl
+++ b/www/index.pl
@@ -200,12 +200,11 @@ sub make_table {
 
        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 = ();
 
@@ -262,10 +261,12 @@ sub make_table {
                };
        }
 
-       return {
+       my $parms = {
                'ranks' => \@ranks,
                'tbody' => \@players,
        };
+       $parms->{'relegation'} = '' if ($lowest_division);
+       return $parms;
 }
 
 sub make_cov_table {