map { $form->{$_} = $ref->{$_} } keys %$ref;
my $query = qq|SELECT dnn.dunning_description AS max_dunning_level FROM dunning_config dnn
map { $form->{$_} = $ref->{$_} } keys %$ref;
my $query = qq|SELECT dnn.dunning_description AS max_dunning_level FROM dunning_config dnn
ORDER BY dunning_level DESC LIMIT 1|;
$ref = selectfirst_hashref_query($form, $dbh, $query, $form->{customer_id});
map { $form->{$_} = $ref->{$_} } keys %$ref;
ORDER BY dunning_level DESC LIMIT 1|;
$ref = selectfirst_hashref_query($form, $dbh, $query, $form->{customer_id});
map { $form->{$_} = $ref->{$_} } keys %$ref;