Revision 3ef788be
Von Sven Schöling vor mehr als 15 Jahren hinzugefügt
| bin/mozilla/invoice_io.pl | ||
|---|---|---|
|
# }
|
||
|
&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;
|
||
|
|
||
Auch abrufbar als: Unified diff
fixes