return int(255.0 * ($x ** (1.80)));
}
+sub get_max_season {
+ my $dbh = shift;
+ my $ref = $dbh->selectrow_hashref('SELECT MAX(sesong) AS max_sesong FROM fotballserier');
+ return $ref->{'max_sesong'};
+}
+
sub make_table {
my ($lowest_division, $used_ratings, $used_cov) = @_;
<form method="get" action="/">
EOF
-$q = $dbh->prepare('SELECT MAX(sesong) AS max_sesong FROM fotballserier');
-$q->execute;
-my $season;
-while (my $ref = $q->fetchrow_hashref) {
- $season = $ref->{'max_sesong'};
-}
+my $season = get_max_season($dbh);
print <<"EOF";
<p>Divisjon:
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";