Train one model (with its own aux parms) per locale.

[wloh] / common.pm

diff --git a/common.pm b/common.pm
index 832a61173f0f85932e164d0f828742ac78862df6..a5c730b806f3d0bda20e511bda9e77be7e8d2cf8 100644 (file)
--- a/common.pm
+++ b/common.pm
@@ -29,4 +29,17 @@ sub get_locale {
        return $1;
 }
 
+sub get_auxillary_parameters {
+       my ($dbh, $locale) = @_;
+
+       my $q = $dbh->prepare('SELECT * FROM aux_params WHERE kultur=?');
+       $q->execute($locale);
+
+       my $aux_parms = {};
+       while (my $ref = $q->fetchrow_hashref) {
+               $aux_parms->{$ref->{'id'}} = $ref->{'value'};
+       }
+       return $aux_parms;
+}
+
 1;