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

[wloh] / common.pm

diff --git a/common.pm b/common.pm
index a5784003f39f2a13a9b73a128b2b44c96624f912..a5c730b806f3d0bda20e511bda9e77be7e8d2cf8 100644 (file)
--- a/common.pm
+++ b/common.pm
@@ -30,10 +30,10 @@ sub get_locale {
 }
 
 sub get_auxillary_parameters {
-       my ($dbh) = @_;
+       my ($dbh, $locale) = @_;
 
-       my $q = $dbh->prepare('SELECT * FROM aux_params');
-       $q->execute;
+       my $q = $dbh->prepare('SELECT * FROM aux_params WHERE kultur=?');
+       $q->execute($locale);
 
        my $aux_parms = {};
        while (my $ref = $q->fetchrow_hashref) {