API-Umstellung auf Hash-Parameter

Conflicts:

	SL/Controller/SalesProcess.pm

diff --git a/SL/DB/Helper/FlattenToForm.pm b/SL/DB/Helper/FlattenToForm.pm
index a09c75c0a9d6f22b61f50c90657e3fbaa7fb7473..beaaa051c9d798d39ce2bd1920321ef04c0dd198 100644 (file)
--- 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 {
 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';
 
 
   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;
   $form->{rowcount}   = scalar(@{ $self->items });
 
   my $idx = 0;

+  my $format_amounts = $params{format_amounts};

   foreach my $item (@{ $self->items }) {
     next if _has($item, 'assemblyitem');
 
   foreach my $item (@{ $self->items }) {
     next if _has($item, 'assemblyitem');