summaryrefslogtreecommitdiff
path: root/bin/ir.pl
diff options
context:
space:
mode:
Diffstat (limited to 'bin/ir.pl')
-rwxr-xr-xbin/ir.pl3
1 files changed, 2 insertions, 1 deletions
diff --git a/bin/ir.pl b/bin/ir.pl
index 01c194b1..425c7935 100755
--- a/bin/ir.pl
+++ b/bin/ir.pl
@@ -804,7 +804,8 @@ sub update {
for (split / /, $form->{taxaccounts}) { $form->{"${_}_base"} = 0 }
for (split / /, $form->{"taxaccounts_$i"}) { $form->{"${_}_base"} += $amount }
if (!$form->{taxincluded}) {
- my @taxes = Tax::init_taxes($form, $form->{"taxaccounts_$i"});
+ my @taxes = Tax::init_taxes($form, $form->{"taxaccounts_$i"},
+ $form->{"taxaccounts"});
$amount += (Tax::calculate_taxes(\@taxes, $form, $amount, 0));
}