From 11849d4e65deae4c901913281176130508c8cbfe Mon Sep 17 00:00:00 2001
From: "Steinar H. Gunderson" <sgunderson@bigfoot.com>
Date: Sat, 9 Jun 2012 12:07:32 +0200
Subject: [PATCH] Add a hidden option to show the covariance matrix.

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

diff --git a/www/index.pl b/www/index.pl
index cfeead2..9bf692c 100755
--- a/www/index.pl
+++ b/www/index.pl
@@ -303,6 +303,36 @@ EOF
 EOF
 }
 
+sub make_cov_table {
+	my ($cov) = @_;
+	my @players = (sort { $players{$a} cmp $players{$b} } keys %players);
+
+	print <<"EOF";
+    <table class="probmatrix">
+      <tr>
+        <th></th>
+EOF
+
+	for my $player (@players) {
+		printf "        <th>%s</th>\n", $players{$player};
+	}
+	print "      </tr>\n";
+
+	my $pnum = 0;
+	for my $player (@players) {
+		++$pnum;
+		print "      <tr>\n";
+		printf "        <th>%s</th>\n", $players{$player};
+
+		for my $player2 (@players) {
+			printf "        <td class=\"num\">%.3f</td>\n", $cov->{$player}{$player2};
+		}
+		print "      </tr>\n";
+	}
+
+	print "    </table>\n";
+}
+
 sub find_avg_rating {
 	my ($ratings) = shift;
 
@@ -426,6 +456,10 @@ EOF
 	my $avg_rating = find_avg_rating(\%ratings);
 	printf "    <p style=\"clear: both; padding-top: 1em;\">Gjennomsnittlig rating i denne avdelingen er <strong>%.1f</strong>.</p>\n", $avg_rating;
 
+	if (defined($cgi->param('showcov'))) {
+		make_cov_table($cov);
+	}
+
 	wloh_common::output_last_sync($dbh);
 }
 
-- 
2.39.2