return @subdivisions;
}
+sub print_division_selector {
+ my ($dbh, $divisions, $subdivisions, $division, $subdivision) = @_;
+
+ print <<"EOF";
+ <form method="get" action="/">
+EOF
+
+ my $max_division = $divisions->[(scalar @$divisions) - 1];
+
+ print <<"EOF";
+ <p>Divisjon:
+ <select name="divisjon" onchange="form.submit();">
+EOF
+
+ for my $d (@$divisions) {
+ if ($d == $division) {
+ print " <option value=\"$d\" selected=\"selected\">$d</option>\n";
+ } else {
+ print " <option value=\"$d\">$d</option>\n";
+ }
+ }
+
+ print <<"EOF";
+ </select>
+ Avdeling:
+ <select name="avdeling" onchange="form.submit();">
+EOF
+
+ for my $sd (@$subdivisions) {
+ if ($sd == $subdivision) {
+ print " <option value=\"$sd\" selected=\"selected\">$sd</option>\n";
+ } else {
+ print " <option value=\"$sd\">$sd</option>\n";
+ }
+ }
+
+ print <<"EOF";
+ </select>
+ <input type="submit" value="Vis" />
+ </p>
+ </form>
+EOF
+}
+
sub make_table {
my ($lowest_division, $used_ratings, $used_cov) = @_;
Tallene vil variere litt fra gang til gang fordi utregningen skjer ved randomisering.</p>
<p>Spillerne er sortert etter nick.</p>
-
- <form method="get" action="/">
EOF
my $season = get_max_season($dbh);
my @divisions = get_divisions($dbh, $season);
$division = 1 if (!grep { $_ == $division } @divisions);
-my $max_division = $divisions[$#divisions];
-
-print <<"EOF";
- <p>Divisjon:
- <select name="divisjon" onchange="form.submit();">
-EOF
-
-for my $d (@divisions) {
- if ($d == $division) {
- print " <option value=\"$d\" selected=\"selected\">$d</option>\n";
- } else {
- print " <option value=\"$d\">$d</option>\n";
- }
-}
-
-print <<"EOF";
- </select>
- Avdeling:
- <select name="avdeling" onchange="form.submit();">
-EOF
-
my @subdivisions = get_subdivisions($dbh, $season, $division);
$subdivision = 1 if (!grep { $_ == $subdivision } @subdivisions);
-for my $sd (@subdivisions) {
- if ($sd == $subdivision) {
- print " <option value=\"$sd\" selected=\"selected\">$sd</option>\n";
- } else {
- print " <option value=\"$sd\">$sd</option>\n";
- }
-}
-
-print <<"EOF";
- </select>
- <input type="submit" value="Vis" />
- </p>
- </form>
-EOF
+print_division_selector($dbh, \@divisions, \@subdivisions, $division, $subdivision);
# Get players and ratings
my $sum_rating = 0.0;
$cov->{$ref->{'player1'}}{$ref->{'player2'}} = $ref->{'cov'};
}
+my $max_division = $divisions[$#divisions];
my $lowest_division = ($division == $max_division);
make_table($lowest_division, {}, {});