X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/fbba1f9b70b2b63623f39e3c5a5d75fd76214927..c17e4e545f025e4f2c6e4c28c88da1cd180a3d7a:/SL/DB/Helper/FlattenToForm.pm

diff --git a/SL/DB/Helper/FlattenToForm.pm b/SL/DB/Helper/FlattenToForm.pm
index a09c75c0a..beaaa051c 100644
--- a/SL/DB/Helper/FlattenToForm.pm
+++ b/SL/DB/Helper/FlattenToForm.pm
@@ -10,7 +10,7 @@ use List::MoreUtils qw(any);
 use SL::CVar;
 
 sub flatten_to_form {
-  my ($self, $form, $format_amounts) = @_;
+  my ($self, $form, %params) = @_;
 
   my $vc = $self->can('customer_id') && $self->customer_id ? 'customer' : 'vendor';
 
@@ -49,6 +49,7 @@ sub flatten_to_form {
   $form->{rowcount}   = scalar(@{ $self->items });
 
   my $idx = 0;
+  my $format_amounts = $params{format_amounts};
   foreach my $item (@{ $self->items }) {
     next if _has($item, 'assemblyitem');