Move get_auxillary_parameters into wloh_common.

diff --git a/common.pm b/common.pm
index 832a61173f0f85932e164d0f828742ac78862df6..ee38a63937535acbcb112f0fa67a07967e10d722 100644 (file)
--- a/common.pm
+++ b/common.pm
@@ -29,4 +29,25 @@ sub get_locale {
        return $1;
 }
 
+sub get_auxillary_parameters {
+       my ($dbh) = @_;
+
+       my %aux_parm_names = {
+               -1 => num_iterations,
+               -2 => score_stddev,
+               -3 => rating_prior_stddev,
+               -4 => total_log_likelihood,
+       };
+
+       my $q = $dbh->prepare('SELECT * FROM ratings WHERE id < 0');
+       $q->execute;
+
+       my $aux_parms = {};
+       while (my $ref = $q->fetchrow_hashref) {
+               my $id = $ref->{'id'};
+               $aux_parms->{$aux_parm_names{$id}} = $ref->{'rating'};
+       }
+       return $aux_parms;
+}
+
 1;

diff --git a/www/index.pl b/www/index.pl
index 506faf52ab0e4667d4c13b4420e916790f998954..c2efb97a2a43bd2fd059d2a55664cefcd26979f2 100755 (executable)
--- a/www/index.pl
+++ b/www/index.pl
@@ -313,27 +313,6 @@ sub find_avg_rating {
        return $sum_rating / scalar keys %$ratings;
 }
 
-sub get_auxillary_parameters {
-       my ($dbh) = @_;
-
-       my %aux_parm_names = {
-               -1 => num_iterations,
-               -2 => score_stddev,
-               -3 => rating_prior_stddev,
-               -4 => total_log_likelihood,
-       };
-
-       my $q = $dbh->prepare('SELECT * FROM ratings WHERE id < 0');
-       $q->execute;
-
-       my $aux_parms = {};
-       while (my $ref = $q->fetchrow_hashref) {
-               my $id = $ref->{'id'};
-               $aux_parms->{$aux_parm_names{$id}} = $ref->{'rating'};
-       }
-       return $aux_parms;
-}
-
 sub print_header {
        my ($cgi, $title) = @_;
        print $cgi->header(-type=>'text/html; charset=utf-8', -expires=>'now');
@@ -358,7 +337,7 @@ sub print_footer {
 EOF
 }
 
-my $aux_parms = get_auxillary_parameters($dbh);
+my $aux_parms = wloh_common::get_auxillary_parameters($dbh);
 my $match_stddev = $aux_parms->{'score_stddev'} * sqrt(2.0);
 
 my $division = $cgi->param('divisjon') // -1;