Fix double UTF-8 encoding in navbar.

[wloh] / include / common.pm

diff --git a/include/common.pm b/include/common.pm
index 9348b15da9a10bb67736234c8ad465d575c5733c..8ec16eb26ccb8496c2b214f2d54b0271cc3941ed 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'} = '';
                }
@@ -161,4 +161,17 @@ sub get_ordinal {
        }       
 }
 
+sub find_all_locales {
+       my $dbh = shift;
+       my $q = $dbh->prepare('SELECT kultur FROM fotballspraak WHERE nyestesesong<>-1');
+       $q->execute;
+
+       my @locales = ();
+       while (my $ref = $q->fetchrow_hashref) {
+               push @locales, $ref->{'kultur'};
+       }
+
+       return @locales;
+}
+
 1;