Move get_auxillary_parameters into wloh_common.

[wloh] / common.pm

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;