Fix a reference to the variable in wrong scope.

[wloh] / www / index.pl

diff --git a/www/index.pl b/www/index.pl
index 54c0b716461593b5a2d155e53d5118b9c1b91219..c26f12892168ef5702e47404d1e0dde34df32667 100755 (executable)
--- a/www/index.pl
+++ b/www/index.pl
@@ -307,9 +307,9 @@ sub find_avg_rating {
 
        my $sum_rating = 0.0;
        for my $r (values %$ratings) {
-               $sum_rating += $r;
+               $sum_rating += ($r // 500.0);
        }
-       return $sum_rating / scalar keys %ratings;
+       return $sum_rating / scalar keys %$ratings;
 }
 
 sub get_auxillary_parameters {
@@ -340,6 +340,13 @@ sub print_header {
 EOF
 }
 
+sub get_locale {
+       my $cgi = shift;
+       my $url = $cgi->url(-absolute => 1);
+       $url =~ m#^/([a-z][a-z]-[A-Z][A-Z])/# or die "Invalid locale!";
+       return $1;
+}
+
 sub print_footer {
        print <<"EOF";
   </body>