Make the display frontend filter out only the data relevant for the current locale.

[wloh] / www / rating.pl
diff --git a/www/rating.pl b/www/rating.pl

index 89c75b96e2ee89a6e64f862fd61bc8757ce5c096..40e91656cced3c3b8d6c57ca92aae3bf44e1be4e 100755 (executable)
--- a/www/rating.pl
+++ b/www/rating.pl
@@ -40,7 +40,7 @@ printf <<"EOF", $params{-3}, $match_stddev;
  <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="no">
    <head>
      <title>WLoH-rating</title>
-    <link rel="stylesheet" href="/style" type="text/css" />
+    <link rel="stylesheet" href="style" type="text/css" />
    </head>
    <body>
      <h1>WLoH-rating</h1>
@@ -52,7 +52,7 @@ printf <<"EOF", $params{-3}, $match_stddev;
        for tilgang!), og oppdateres
        hver hele time. Den er fullstendig uoffisiell, og har ingen innflytelse
        på WLoH, men brukes for å estimere vinnersannsynligheter i
-      <a href="/">sannsynlighetsberegningen</a>.</p>
+      <a href="index">sannsynlighetsberegningen</a>.</p>
  
      <p>Modellen kan endre seg når som helst når jeg føler for det :-)
        Ikke ta ratingen alt for alvorlig, selv om den er basert på
@@ -62,16 +62,16 @@ printf <<"EOF", $params{-3}, $match_stddev;
      <h2>Modellparametre</h2>
  
      <p>For de som vet litt om slikt. Det finnes også en lengre, mer detaljert
-      <a href="/ratings-explained">forklaring</a> beregnet på ikke-matematikere.</p>
+      <a href="ratings-explained">forklaring</a> beregnet på ikke-matematikere.</p>
  
      <ul>
        <li>MLE-basert modell med én skalar (styrke) per spiller og to globale skalarer (begge standardavvik, se under), løst med syklisk MM (minorization-maximization). Antall iterasjoner før konvergens: $params{-1}.</li>
-      <li>Rimelighetfunksjon, prior: Normalfordeling med µ=1500, &sigma;=%.1f (est.)</li>
+      <li>Rimelighetfunksjon, prior: Normalfordeling med µ=500, &sigma;=%.1f (est.)</li>
        <li>Rimelighetfunksjon, per kamp: Normalfordeling med µ=(score1 - score2), &sigma;=%.1f (est.)</li>
        <li>Vekting: Inneværende sesong samt de tre siste vektes fullt ut
         (likt med prior). Deretter eksponentielt synkende vekting, med
          halveringstid på tre sesonger. Spill som er registrert med
-        150-0, 0-150 eller 150-150 ignoreres.</li>
+        0-0, 150-0, 0-150 eller 150-150 ignoreres.</li>
      </ul>
  
      <h2>Divisjonsoversikt</h2>
@@ -84,8 +84,25 @@ printf <<"EOF", $params{-3}, $match_stddev;
        </tr>
  EOF
  
-$q = $dbh->prepare('SELECT divisjon,AVG(rating) AS avg_rating,STDDEV(rating) AS stddev_rating FROM ratings NATURAL JOIN siste_divisjon GROUP BY divisjon ORDER BY divisjon');
-$q->execute;
+my $cgi = CGI->new;
+my $locale = wloh_common::get_locale($cgi);
+my $season = wloh_common::get_max_season($dbh, $locale);
+
+# 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);
  
  my $i = 0;
  while (my $ref = $q->fetchrow_hashref) {
@@ -97,6 +114,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";
  }
  
@@ -120,8 +142,10 @@ SELECT *
  FROM ratings
    NATURAL JOIN kanonisk_navn
    NATURAL JOIN siste_divisjon
+  NATURAL JOIN spiller_kultur
+WHERE kultur=?
  ORDER BY rating DESC');
-$q->execute;
+$q->execute($locale);
  
  $i = 0;
  while (my $ref = $q->fetchrow_hashref) {