-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;
-}
-