From: Sven Schöling Date: Fri, 23 Oct 2009 13:10:53 +0000 (+0200) Subject: fixes X-Git-Tag: release-2.6.1beta1~168 X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=3ef788be3eabee838cf1f9f4a9a6051bfa847554;p=kivitendo-erp.git fixes --- diff --git a/bin/mozilla/invoice_io.pl b/bin/mozilla/invoice_io.pl index 97bb8fdb8..b4290feb2 100644 --- a/bin/mozilla/invoice_io.pl +++ b/bin/mozilla/invoice_io.pl @@ -661,46 +661,50 @@ sub display_form { # } &form_header; - my $numrows = ++$form->{rowcount}; - my $subroutine = "display_row"; + { + no strict 'refs'; - if ($form->{item} eq 'part') { + my $numrows = ++$form->{rowcount}; + my $subroutine = "display_row"; - #set preisgruppenanzahl - $numrows = $form->{price_rows}; - $subroutine = "price_row"; + if ($form->{item} eq 'part') { - &{$subroutine}($numrows); + #set preisgruppenanzahl + $numrows = $form->{price_rows}; + $subroutine = "price_row"; - $numrows = ++$form->{makemodel_rows}; - $subroutine = "makemodel_row"; - } - if ($form->{item} eq 'assembly') { - $numrows = $form->{price_rows}; - $subroutine = "price_row"; + &{$subroutine}($numrows); + + $numrows = ++$form->{makemodel_rows}; + $subroutine = "makemodel_row"; + } + if ($form->{item} eq 'assembly') { + $numrows = $form->{price_rows}; + $subroutine = "price_row"; - &{$subroutine}($numrows); + &{$subroutine}($numrows); - $numrows = ++$form->{makemodel_rows}; - $subroutine = "makemodel_row"; + $numrows = ++$form->{makemodel_rows}; + $subroutine = "makemodel_row"; - # create makemodel rows - &{$subroutine}($numrows); + # create makemodel rows + &{$subroutine}($numrows); - $numrows = ++$form->{assembly_rows}; - $subroutine = "assembly_row"; - } - if ($form->{item} eq 'service') { - $numrows = $form->{price_rows}; - $subroutine = "price_row"; + $numrows = ++$form->{assembly_rows}; + $subroutine = "assembly_row"; + } + if ($form->{item} eq 'service') { + $numrows = $form->{price_rows}; + $subroutine = "price_row"; - &{$subroutine}($numrows); + &{$subroutine}($numrows); - $numrows = 0; - } + $numrows = 0; + } - # create rows - &{$subroutine}($numrows) if $numrows; + # create rows + &{$subroutine}($numrows) if $numrows; + } &form_footer;