-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 AND length(kultur)=5 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";
-}
-