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 {
33 my ($dbh, $locale) = @_;
35 my $q = $dbh->prepare('SELECT * FROM aux_params WHERE kultur=?');
39 while (my $ref = $q->fetchrow_hashref) {
40 $aux_parms->{$ref->{'id'}} = $ref->{'value'};
46 my ($cgi, $dbh, $locale) = @_;
47 my $url = $cgi->url(-relative => 1);
49 print "<p style=\"font-size: smaller;\">";
51 my $q = $dbh->prepare('SELECT spraak, kultur FROM fotballspraak WHERE nyestesesong <> -1 ORDER BY id');
55 while (my $ref = $q->fetchrow_hashref) {
61 if ($ref->{'kultur'} eq $locale) {
62 printf "%s ", $ref->{'spraak'};
64 printf "<a href=\"/%s/%s\">%s</a> ", $ref->{'kultur'}, $url, $ref->{'spraak'};