return int(255.0 * ($x ** (1.80)));
}
+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 make_table {
my ($lowest_division, $used_ratings, $used_cov) = @_;
<form method="get" action="/">
EOF
-$q = $dbh->prepare('SELECT MAX(sesong) AS max_sesong FROM fotballserier');
-$q->execute;
-my $season;
-while (my $ref = $q->fetchrow_hashref) {
- $season = $ref->{'max_sesong'};
-}
+my $season = get_max_season($dbh);
print <<"EOF";
<p>Divisjon: