From: Steinar H. Gunderson <sgunderson@bigfoot.com>
Date: Thu, 13 Dec 2012 17:48:37 +0000 (+0100)
Subject: Ignore languages that are not WLoH languages; this is marked by non-standard-length... 
X-Git-Url: https://git.sesse.net/?p=wloh;a=commitdiff_plain;h=dcc24d444dd3e43c9501e88217b8b8eaaea617fa

Ignore languages that are not WLoH languages; this is marked by non-standard-length locales.
---

diff --git a/include/common.pm b/include/common.pm
index 8ec16eb..f81f984 100644
--- a/include/common.pm
+++ b/include/common.pm
@@ -93,7 +93,7 @@ sub print_navbar {
 
 	print "<p style=\"font-size: smaller;\">";
 
-	my $q = $dbh->prepare('SELECT spraak, kultur FROM fotballspraak WHERE nyestesesong <> -1 ORDER BY id');
+	my $q = $dbh->prepare('SELECT spraak, kultur FROM fotballspraak WHERE nyestesesong <> -1 AND length(kultur)=5 ORDER BY id');
 	$q->execute;
 
 	my $first = 1;
@@ -163,7 +163,7 @@ sub get_ordinal {
 
 sub find_all_locales {
 	my $dbh = shift;
-	my $q = $dbh->prepare('SELECT kultur FROM fotballspraak WHERE nyestesesong<>-1');
+	my $q = $dbh->prepare('SELECT kultur FROM fotballspraak WHERE nyestesesong <> -1 AND length(kultur)=5');
 	$q->execute;
 
 	my @locales = ();