Fix navbar to exclude non-WLoH games, too.

[wloh] / include / common.pm

diff --git a/include/common.pm b/include/common.pm
index f81f9840d9817e683b520eca863518123b942849..6a96f890846dd3f41690d730bbacaad3ef7568c8 100644 (file)
--- a/include/common.pm
+++ b/include/common.pm
@@ -60,7 +60,7 @@ sub get_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 @languages = ();