When making division ranking, only include the players that are active in the current...

[wloh] / www / rating.pl

diff --git a/www/rating.pl b/www/rating.pl
index 1547c42d2f0a794eea49b9aee7a5b8afcf26542d..0c42ccc8ee29e79bef376ad5ab4d36cd93747735 100755 (executable)
--- a/www/rating.pl
+++ b/www/rating.pl
@@ -11,6 +11,7 @@ use HTML::Entities;
 use utf8;
 use locale;
 require '../config.pm';
+require '../common.pm';
 
 my $dbh = DBI->connect($config::local_connstr, $config::local_username, $config::local_password)
        or die "connect: " . $DBI::errstr;
@@ -65,12 +66,12 @@ printf <<"EOF", $params{-3}, $match_stddev;
 
     <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>
@@ -83,8 +84,10 @@ 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 $season = wloh_common::get_max_season($dbh);
+
+$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) {
@@ -136,9 +139,11 @@ while (my $ref = $q->fetchrow_hashref) {
        printf "      <td><a href=\"http://wordfeud.aasmul.net/serie-%d\">%s</a></td>\n", $ref->{'serie_id'}, $ref->{'serie_navn'};
        print "    </tr>\n";
 }
+print "    </table>\n";
+
+wloh_common::output_last_sync($dbh);
 
 print <<"EOF";
-    </table>
   </body>
 </html>
 EOF