From c875d0b0b8a0466841de9b8d2ec2124e376c2712 Mon Sep 17 00:00:00 2001
From: "Steinar H. Gunderson" <sgunderson@bigfoot.com>
Date: Wed, 30 May 2012 21:30:42 +0200
Subject: [PATCH] Move get_auxillary_parameters into wloh_common.

---
 common.pm    | 21 +++++++++++++++++++++
 www/index.pl | 23 +----------------------
 2 files changed, 22 insertions(+), 22 deletions(-)

diff --git a/common.pm b/common.pm
index 832a611..ee38a63 100644
--- 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 506faf5..c2efb97 100755
--- 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;
-- 
2.39.2