}
# recalculate
-
- # Modified from $amount = $form->{amount} by J.Zach to update amount to total
- # payment amount in Zahlungsausgang
- $amount = 0;
+ $amount = $form->{amount};
for $i (1 .. $form->{rowcount}) {
map {
$form->{"paid_$i"} = $form->{"due_$i"};
}
- # Modified by J.Zach, see abovev
- $amount += $form->{"paid_$i"};
-
+ $amount -= $form->{"paid_$i"};
} else {
$form->{"paid_$i"} = "";
}
}
- # Line added by J.Zach, see above
- $form->{amount}=$amount;
-
&form_header;
&list_invoices;
&form_footer;
$form->{company} = $myconfig{company};
$form->{address} = $myconfig{address};
- @a =
- qw(name invnumber company address text_amount street zipcode city country memo);
- $form->format_string(@a);
-
$form->parse_template(\%myconfig, $userspath);
if ($form->{media} ne 'screen') {