Add a language navbar at the top.

[wloh] / common.pm

diff --git a/common.pm b/common.pm
index a5c730b806f3d0bda20e511bda9e77be7e8d2cf8..60cc243d608e275714f60edb17c65eef1e1b5dda 100644 (file)
--- a/common.pm
+++ b/common.pm
@@ -42,4 +42,29 @@ sub get_auxillary_parameters {
        return $aux_parms;
 }
 
+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";
+}
+
 1;