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);
$players{$id} = sanitize(Encode::decode_utf8($ref->{'navn'}));
$ratings{$id} = $ref->{'rating'};
$ratings_stddev{$id} = $ref->{'rating_stddev'};
+ $sum_rating += $ref->{'rating'};
}
$q->finish;
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";