+sub get_locale {
+ my $cgi = shift;
+ my $url = $cgi->url(-absolute => 1);
+ $url =~ m#^/([a-z][a-z]-[A-Z][A-Z])/# or die "Invalid 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;
+}
+