From: Steinar H. Gunderson Date: Wed, 30 May 2012 20:02:34 +0000 (+0200) Subject: Add a language navbar at the top. X-Git-Url: https://git.sesse.net/?a=commitdiff_plain;h=36e32c3af61d19ee2b334c9586a2b68ce9d4e576;p=wloh Add a language navbar at the top. --- diff --git a/common.pm b/common.pm index a5c730b..60cc243 100644 --- 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 "

"; + + 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 "%s ", $ref->{'kultur'}, $url, $ref->{'spraak'}; + } + } + print "

\n"; +} + 1; diff --git a/www/index.pl b/www/index.pl index 7546d65..23dbe6c 100755 --- a/www/index.pl +++ b/www/index.pl @@ -359,6 +359,7 @@ get_players_and_ratings($dbh, $locale, $season, $division, $subdivision); my $cov = get_covariance_matrix($dbh, keys %players); print_header($cgi, 'WLoH-plasseringsannsynlighetsberegning'); +wloh_common::print_navbar($cgi, $dbh, $locale); if (defined($match_player) && defined($match_position)) { my $tmpnam = write_parms_to_file($aux_parms, $match_stddev, \%ratings, $cov); diff --git a/www/rating.pl b/www/rating.pl index 2118f40..38768d4 100755 --- a/www/rating.pl +++ b/www/rating.pl @@ -29,7 +29,7 @@ my $match_stddev = $aux_parms->{'score_stddev'} * sqrt(2.0); print CGI->header(-type=>'text/html; charset=utf-8', -expires=>'+5m'); POSIX::setlocale(&POSIX::LC_ALL, 'nb_NO.UTF-8'); -printf <<"EOF", $aux_parms->{'rating_prior_stddev'}, $match_stddev; +print <<"EOF"; {'rating_prior_stddev'}, $match_stddev; +EOF + +wloh_common::print_navbar($cgi, $dbh, $locale); + +printf <<"EOF", $aux_parms->{'rating_prior_stddev'}, $match_stddev;

WLoH-rating

Dette er et hobbyprosjekt fra tredjepart, og ikke en offisiell del av