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;
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);
}