From dcc24d444dd3e43c9501e88217b8b8eaaea617fa Mon Sep 17 00:00:00 2001
From: "Steinar H. Gunderson" <sgunderson@bigfoot.com>
Date: Thu, 13 Dec 2012 18:48:37 +0100
Subject: [PATCH] Ignore languages that are not WLoH languages; this is marked
 by non-standard-length locales.

---
 include/common.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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 = ();
-- 
2.39.2