From e971b5ab633c3595dacab5ea524139201bd69516 Mon Sep 17 00:00:00 2001
From: "Steinar H. Gunderson" <sgunderson@bigfoot.com>
Date: Tue, 24 Apr 2012 00:55:06 +0200
Subject: [PATCH] Show average ratings for each subdivision.

---
 www/rating.pl | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/www/rating.pl b/www/rating.pl
index 0c42ccc..26ced55 100755
--- a/www/rating.pl
+++ b/www/rating.pl
@@ -86,6 +86,19 @@ EOF
 
 my $season = wloh_common::get_max_season($dbh);
 
+# Pick up all the subdivisions' ratings.
+my %subdivision_ratings = ();
+$q = $dbh->prepare('SELECT divisjon, avdeling, serie_id, AVG(rating) AS avg_rating FROM ratings NATURAL JOIN siste_divisjon WHERE sesong=? GROUP BY divisjon, avdeling, serie_id ORDER BY divisjon, avdeling');
+$q->execute($season);
+
+while (my $ref = $q->fetchrow_hashref) {
+	my $division = $ref->{'divisjon'};
+	my $rating = $ref->{'avg_rating'};
+	my $id = $ref->{'serie_id'};
+
+	push @{$subdivision_ratings{$division}}, [ $id, $rating ];
+}
+
 $q = $dbh->prepare('SELECT divisjon,AVG(rating) AS avg_rating,STDDEV(rating) AS stddev_rating FROM ratings NATURAL JOIN siste_divisjon WHERE sesong=? GROUP BY divisjon ORDER BY divisjon');
 $q->execute($season);
 
@@ -99,6 +112,11 @@ while (my $ref = $q->fetchrow_hashref) {
 	printf "        <th>%d.</th>\n", $ref->{'divisjon'};
 	printf "        <td class=\"num\">%.1f</td>\n", $ref->{'avg_rating'};
 	printf "        <td class=\"num\">%.1f</td>\n", $ref->{'stddev_rating'};
+
+	for my $arr (@{$subdivision_ratings{$ref->{'divisjon'}}}) {
+		my ($id, $rating) = @$arr;
+		printf "        <td class=\"num\"><a href=\"http://wordfeud.aasmul.net/serie-%d\">%.1f</a></td>\n", $id, $rating;
+	}
 	print "      </tr>\n";
 }
 
-- 
2.39.2