Remove dead function print_navbar().

[wloh] / include / common.pm

diff --git a/include/common.pm b/include/common.pm
index 8ec16eb26ccb8496c2b214f2d54b0271cc3941ed..15c698bb539bd3daf3f7ef5d5f9664d16d043546 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 = ();
@@ -87,31 +87,6 @@ sub get_navbar {
        return \@languages;
 }
 
-sub print_navbar {
-       my ($cgi, $dbh, $locale) = @_;
-       my $url = $cgi->url(-relative => 1);
-
-       print "<p style=\"font-size: smaller;\">";
-
-       my $q = $dbh->prepare('SELECT spraak, kultur FROM fotballspraak WHERE nyestesesong <> -1 ORDER BY id');
-       $q->execute;
-
-       my $first = 1;
-       while (my $ref = $q->fetchrow_hashref) {
-               if (!$first) {
-                       print " :: ";
-               }
-               $first = 0;
-
-               if ($ref->{'kultur'} eq $locale) {
-                       printf "%s ", $ref->{'spraak'};
-               } else {
-                       printf "<a href=\"/%s/%s\">%s</a> ", $ref->{'kultur'}, $url, $ref->{'spraak'};
-               }
-       }
-       print "</p>\n";
-}
-
 # mapping from locale to translation to use (if not found, "en" is used)
 my %translation_mapping = (
        'nb-NO' => 'no',
@@ -163,7 +138,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 = ();