- $query = qq|UPDATE defaults SET accounting_method = ?, profit_determination = ?, inventory_system = ?, precision = ?, currency_id = ?|;
- do_query($form, $dbh, $query,
- $form->{accounting_method},
- $form->{profit_determination},
- $form->{inventory_system},
- $form->parse_amount(\%::myconfig, $form->{precision_as_number}),
- $curr->{id},
- );
+ $query = qq|UPDATE defaults SET coa = ?, accounting_method = ?, profit_determination = ?, inventory_system = ?, curr = ?|;
+ do_query($form, $dbh, $query, map { $form->{$_} } qw(chart accounting_method profit_determination inventory_system defaultcurrency));