From ca05ac92ffa61529291368e179e3ae10c83b34b0 Mon Sep 17 00:00:00 2001
From: "Steinar H. Gunderson" <sgunderson@bigfoot.com>
Date: Sun, 25 Mar 2012 19:22:14 +0200
Subject: [PATCH] Add clickable fun to the probability matrix.

---
 www/index.pl  | 24 ++++++++++++++++--------
 www/style.css | 11 +++++++++++
 2 files changed, 27 insertions(+), 8 deletions(-)

diff --git a/www/index.pl b/www/index.pl
index 8274574..fd3228b 100755
--- a/www/index.pl
+++ b/www/index.pl
@@ -213,12 +213,15 @@ sub write_parms_to_file {
 	return $tmpnam;
 }
 
+my $num_tables = 0;
+
 sub make_table {
-	my ($aux_parms, $match_stddev, $lowest_division, $used_ratings, $used_cov) = @_;
+	my ($aux_parms, $match_stddev, $lowest_division, $used_ratings, $used_cov, $division, $subdivision) = @_;
+	++$num_tables;
 
 	print <<"EOF";
 
-    <table>
+    <table class="probmatrix">
       <tr>
         <th></th>
 EOF
@@ -245,7 +248,9 @@ EOF
 	print "        <th>NEDRYKK</th>\n" unless ($lowest_division);
 	print "      </tr>\n";
 
+	my $pnum = 0;
 	for my $player (sort { $a cmp $b } keys %prob) {
+		++$pnum;
 		print "      <tr>\n";
 		print "        <th>$player</th>\n";
 
@@ -262,7 +267,7 @@ EOF
 				($r, $b) = ($b, $r);
 			}
 
-			printf "        <td style=\"background-color: rgb($r, $g, $b)\" class=\"num\">%.1f%%</td>\n", $pn * 100.0;
+			printf "        <td style=\"background-color: rgb($r, $g, $b)\" class=\"num\"><a class=\"unmarkedlink\" href=\"javascript:var obj=document.getElementById('scenario$num_tables');var parent=obj.parentElement;parent.removeChild(obj);obj=obj.cloneNode();obj.data = '/?divisjon=$division;avdeling=$subdivision;spiller=$pnum;posisjon=$i';parent.appendChild(obj);\">%.1f%%</a></td>\n", $pn * 100.0;
 		}
 
 		unless ($lowest_division) {
@@ -278,6 +283,8 @@ EOF
 
 	print << "EOF";
     </table>
+    
+    <p class="scenario"><object id="scenario$num_tables" data="" type="text/html"></object></p>
 EOF
 }
 
@@ -384,7 +391,8 @@ if (defined($match_player) && defined($match_position)) {
     <p>Beregningen tar ikke hensyn til ujevn spillestyrke, ting som er sagt i forumet e.l.;
       den antar at samtlige uspilte kamper trekkes fra en normalfordeling med standardavvik
       %.1f poeng. Sannsynlighetene kan summere til andre tall enn 100%% pga. avrunding.
-      Tallene vil variere litt fra gang til gang fordi utregningen skjer ved randomisering.</p>
+      Tallene vil variere litt fra gang til gang fordi utregningen skjer ved randomisering.
+      For scenarioeksempel, klikk i en rute.</p>
 
     <p>Spillerne er sortert etter nick.</p>
 EOF
@@ -393,17 +401,17 @@ EOF
 
 	my $max_division = $divisions[$#divisions];
 	my $lowest_division = ($division == $max_division);
-	make_table($aux_parms, $match_stddev, $lowest_division, {}, {});
+	make_table($aux_parms, $match_stddev, $lowest_division, {}, {}, $division, $subdivision);
 
 	print <<"EOF";
-    <p>Under er en variant som tar relativ spillestyrke med i beregningen;
+    <p style="clear: both; padding-top: 1em;">Under er en variant som tar relativ spillestyrke med i beregningen;
       se <a href="/rating">ratingsiden</a>.</p>
 EOF
 
-	make_table($aux_parms, $match_stddev, $lowest_division, \%ratings, $cov);
+	make_table($aux_parms, $match_stddev, $lowest_division, \%ratings, $cov, $division, $subdivision);
 
 	my $avg_rating = find_avg_rating(\%ratings);
-	printf "    <p>Gjennomsnittlig rating i denne avdelingen er <strong>%.1f</strong>.</p>\n", $avg_rating;
+	printf "    <p style=\"clear: both; padding-top: 1em;\">Gjennomsnittlig rating i denne avdelingen er <strong>%.1f</strong>.</p>\n", $avg_rating;
 
 	wloh_common::output_last_sync($dbh);
 }
diff --git a/www/style.css b/www/style.css
index 79f4d9d..7ecad02 100644
--- a/www/style.css
+++ b/www/style.css
@@ -20,3 +20,14 @@ td.num {
 .lastsync {
 	font-size: smaller;
 }
+.probmatrix {
+	float: left;
+}
+.scenario {
+	float: left;
+	padding-left: 1em;
+}
+.unmarkedlink {
+	color: inherit;
+	text-decoration: inherit;
+}
-- 
2.39.2