X-Git-Url: https://git.sesse.net/?a=blobdiff_plain;f=common.pm;h=60cc243d608e275714f60edb17c65eef1e1b5dda;hb=36e32c3af61d19ee2b334c9586a2b68ce9d4e576;hp=a5784003f39f2a13a9b73a128b2b44c96624f912;hpb=a2f0395b40da200936eefc55665f87577ba30878;p=wloh

diff --git a/common.pm b/common.pm
index a578400..60cc243 100644
--- a/common.pm
+++ b/common.pm
@@ -30,10 +30,10 @@ sub get_locale {
 }
 
 sub get_auxillary_parameters {
-	my ($dbh) = @_;
+	my ($dbh, $locale) = @_;
 
-	my $q = $dbh->prepare('SELECT * FROM aux_params');
-	$q->execute;
+	my $q = $dbh->prepare('SELECT * FROM aux_params WHERE kultur=?');
+	$q->execute($locale);
 
 	my $aux_parms = {};
 	while (my $ref = $q->fetchrow_hashref) {
@@ -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;