8 my ($dbh, $locale) = @_;
9 my $ref = $dbh->selectrow_hashref('SELECT MAX(sesong) AS max_sesong FROM fotballserier se JOIN fotballspraak sp ON se.spraak=sp.id WHERE kultur=?',
11 return $ref->{'max_sesong'};
14 sub output_last_sync {
16 my $ref = $dbh->selectrow_hashref('SELECT EXTRACT(EPOCH FROM last_sync) AS last_sync FROM last_sync');
18 print " <p class=\"lastsync\">Databasen ble sist synkronisert (ukjent).</p>\n";
20 my $ts = POSIX::strftime("%Y-%m-%d %H:%M %Z", localtime($ref->{'last_sync'}));
21 print " <p class=\"lastsync\">Databasen ble sist synkronisert $ts.</p>\n";
27 my $url = $cgi->url(-absolute => 1);
28 $url =~ m#^/([a-z][a-z]-[A-Z][A-Z])/# or die "Invalid locale!";
32 sub get_auxillary_parameters {
35 my %aux_parm_names = {
38 -3 => rating_prior_stddev,
39 -4 => total_log_likelihood,
42 my $q = $dbh->prepare('SELECT * FROM ratings WHERE id < 0');
46 while (my $ref = $q->fetchrow_hashref) {
47 my $id = $ref->{'id'};
48 $aux_parms->{$aux_parm_names{$id}} = $ref->{'rating'};