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

[wloh] / include / common.pm

diff --git a/include/common.pm b/include/common.pm
index 207bfe9297d836b2e7a8fa979ad1bf1725dfbe6e..f81f9840d9817e683b520eca863518123b942849 100644 (file)
--- a/include/common.pm
+++ b/include/common.pm
@@ -75,9 +75,9 @@ sub get_navbar {
 
                if ($ref->{'kultur'} eq $locale) {
                        $lang{'lang-with-link'} = '';
-                       $lang{'lang-no-link'} = $ref->{'spraak'};
+                       $lang{'lang-no-link'} = Encode::decode_utf8($ref->{'spraak'});
                } else {
-                       $lang{'a'} = $ref->{'spraak'};
+                       $lang{'a'} = Encode::decode_utf8($ref->{'spraak'});
                        $lang{'a/href'} = sprintf "/%s/%s", $ref->{'kultur'}, $url;
                        $lang{'lang-no-link'} = '';
                }
@@ -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 = ();