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;
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');
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;