X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/8c7e44938a661e035f62840e1e177353240ace5d..1cd7aea87cff5ab5a4b51a539e2dc24935f4d8c4:/bin/mozilla/invoice_io.pl diff --git a/bin/mozilla/invoice_io.pl b/bin/mozilla/invoice_io.pl index 229927220..011c872c8 100644 --- a/bin/mozilla/invoice_io.pl +++ b/bin/mozilla/invoice_io.pl @@ -117,9 +117,9 @@ use Data::Dumper; # } ############### ENDE Neueintrag ################## # -# my $dimension_units = AM->retrieve_units(\%myconfig, $form, "dimension"); -# my $service_units = AM->retrieve_units(\%myconfig, $form, "service"); # my $all_units = AM->retrieve_units(\%myconfig, $form); +# my $dimension_units = $all_units; +# my $service_units = $all_units; # # my %price_factors = map { $_->{id} => $_->{factor} } @{ $form->{ALL_PRICE_FACTORS} }; # @@ -661,7 +661,8 @@ sub display_form { &{$subroutine}($numrows); - $numrows = 0; + $numrows = ++$form->{makemodel_rows}; + $subroutine = "makemodel_row"; } if ($form->{item} eq 'assembly') { $numrows = $form->{price_rows};