X-Git-Url: https://git.sesse.net/?p=wloh;a=blobdiff_plain;f=include%2Fcommon.pm;h=f81f9840d9817e683b520eca863518123b942849;hp=8ec16eb26ccb8496c2b214f2d54b0271cc3941ed;hb=dcc24d444dd3e43c9501e88217b8b8eaaea617fa;hpb=8053419402fbd304d85b644d3cdff8f2490ff27d

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