From 908a60f3b8f1e49cffb9eb0fddccc07b6039a6bd Mon Sep 17 00:00:00 2001
From: "Steinar H. Gunderson" <sgunderson@bigfoot.com>
Date: Fri, 23 Mar 2012 01:11:25 +0100
Subject: [PATCH] Add average rating display.

---
 www/index.pl | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/www/index.pl b/www/index.pl
index 5291632..33a719f 100755
--- 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";
-- 
2.39.2