X-Git-Url: https://git.sesse.net/?a=blobdiff_plain;f=www%2Findex.pl;h=2cecec4672ad48d7a1893ef4a951989f367c556b;hb=dec0ff92103e212921be03744323ed3a3074e996;hp=c7cfa40bd53c66e87d68193e2efa022b6cfb43d9;hpb=109dc952389552095f89feb9550853d49848377a;p=wloh diff --git a/www/index.pl b/www/index.pl index c7cfa40..2cecec4 100755 --- a/www/index.pl +++ b/www/index.pl @@ -12,6 +12,7 @@ use Encode; use utf8; use locale; require '../config.pm'; +require '../common.pm'; my $cgi = CGI->new; @@ -28,8 +29,6 @@ my %players = (); my %ratings = (); my %ratings_stddev = (); my @matches = (); -my %parms = (); -my $match_stddev; sub sanitize { return HTML::Entities::encode_entities(shift); @@ -40,15 +39,143 @@ sub color { return int(255.0 * ($x ** (1.80))); } -sub make_table { - my ($lowest_division, $used_ratings, $used_ratings_stddev) = @_; +sub get_max_season { + my $dbh = shift; + my $ref = $dbh->selectrow_hashref('SELECT MAX(sesong) AS max_sesong FROM fotballserier'); + return $ref->{'max_sesong'}; +} + +sub get_divisions { + my ($dbh, $season) = @_; + + my @divisions = (); + + my $q = $dbh->prepare('SELECT DISTINCT(divisjon) FROM fotballserier WHERE sesong=? ORDER BY divisjon'); + $q->execute($season); + + while (my $ref = $q->fetchrow_hashref) { + push @divisions, $ref->{'divisjon'}; + } + + return @divisions; +} + +sub get_subdivisions { + my ($dbh, $season, $division) = @_; + + my @subdivisions = (); + + my $q = $dbh->prepare('SELECT DISTINCT(avdeling) FROM fotballserier WHERE sesong=? AND divisjon=? ORDER BY avdeling'); + $q->execute($season, $division); + + while (my $ref = $q->fetchrow_hashref) { + push @subdivisions, $ref->{'avdeling'}; + } + + return @subdivisions; +} + +sub print_division_selector { + my ($dbh, $divisions, $subdivisions, $division, $subdivision) = @_; + + print <<"EOF"; +