Add average rating display.

diff --git a/www/index.pl b/www/index.pl
index 529163266df023dc7e173e5a6dfec0c4f7a454e3..33a719f0f43fed5828defb436778e5414df4d282 100755 (executable)
--- a/www/index.pl
+++ b/www/index.pl
@@ -246,6 +246,8 @@ print <<"EOF";
 EOF
 
 # Get players and ratings
+my $sum_rating = 0.0;
+
 $q = $dbh->prepare('SELECT fotballdeltagere.id,fotballdeltagere.navn,rating,rating_stddev FROM fotballdeltagere JOIN fotballserier ON fotballdeltagere.serie=fotballserier.nr LEFT JOIN ratings ON fotballdeltagere.id=ratings.id WHERE sesong=? AND divisjon=? AND avdeling=?');
 $q->execute($season, $division, $subdivision);
 
@@ -254,6 +256,7 @@ while (my $ref = $q->fetchrow_hashref) {
        $players{$id} = sanitize(Encode::decode_utf8($ref->{'navn'}));
        $ratings{$id} = $ref->{'rating'};
        $ratings_stddev{$id} = $ref->{'rating_stddev'};
+       $sum_rating += $ref->{'rating'};
 }
 $q->finish;
 
@@ -295,6 +298,9 @@ EOF
 
 make_table($lowest_division, \%ratings, $cov);
 
+my $avg_rating = $sum_rating / scalar keys %players;
+printf "    <p>Gjennomsnittlig rating i denne avdelingen er <strong>%.1f</strong>.</p>\n", $avg_rating;
+
 wloh_common::output_last_sync($dbh);
 
 print <<"EOF";