From aad9399b1ff68ba788c922872288b1e778484af1 Mon Sep 17 00:00:00 2001
From: "Steinar H. Gunderson"
Date: Sun, 25 Mar 2012 17:21:41 +0200
Subject: [PATCH] Factor out the division selector into its own function.
---
www/index.pl | 83 +++++++++++++++++++++++++++++-----------------------
1 file changed, 46 insertions(+), 37 deletions(-)
diff --git a/www/index.pl b/www/index.pl
index ef2e15e..b754d4c 100755
--- a/www/index.pl
+++ b/www/index.pl
@@ -77,6 +77,50 @@ sub get_subdivisions {
return @subdivisions;
}
+sub print_division_selector {
+ my ($dbh, $divisions, $subdivisions, $division, $subdivision) = @_;
+
+ print <<"EOF";
+
+EOF
+}
+
sub make_table {
my ($lowest_division, $used_ratings, $used_cov) = @_;
@@ -216,51 +260,15 @@ printf <<"EOF", $match_stddev;
Tallene vil variere litt fra gang til gang fordi utregningen skjer ved randomisering.
Spillerne er sortert etter nick.
-
-
-EOF
+print_division_selector($dbh, \@divisions, \@subdivisions, $division, $subdivision);
# Get players and ratings
my $sum_rating = 0.0;
@@ -305,6 +313,7 @@ while (my $ref = $q->fetchrow_hashref) {
$cov->{$ref->{'player1'}}{$ref->{'player2'}} = $ref->{'cov'};
}
+my $max_division = $divisions[$#divisions];
my $lowest_division = ($division == $max_division);
make_table($lowest_division, {}, {});
--
2.39.2