Add a language navbar at the top.

[wloh] / www / rating.pl
diff --git a/www/rating.pl b/www/rating.pl

index 2118f40e4e3d9108709dca813987fdb09927ec00..38768d4673ca281eec5062f8808859be04e52666 100755 (executable)
--- 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";
  <?xml version="1.0" encoding="UTF-8" ?>
  <!DOCTYPE
    html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
@@ -40,6 +40,11 @@ printf <<"EOF", $aux_parms->{'rating_prior_stddev'}, $match_stddev;
      <link rel="stylesheet" href="style" type="text/css" />
    </head>
    <body>
+EOF
+
+wloh_common::print_navbar($cgi, $dbh, $locale);
+
+printf <<"EOF", $aux_parms->{'rating_prior_stddev'}, $match_stddev;
      <h1>WLoH-rating</h1>
  
      <p><em>Dette er et hobbyprosjekt fra tredjepart, og ikke en offisiell del av