Revision 3ef788be
Von Sven Schöling vor etwa 15 Jahren hinzugefügt
| bin/mozilla/invoice_io.pl | ||
|---|---|---|
| 661 | 661 |
# } |
| 662 | 662 |
&form_header; |
| 663 | 663 |
|
| 664 |
my $numrows = ++$form->{rowcount};
|
|
| 665 |
my $subroutine = "display_row";
|
|
| 664 |
{
|
|
| 665 |
no strict 'refs';
|
|
| 666 | 666 |
|
| 667 |
if ($form->{item} eq 'part') {
|
|
| 667 |
my $numrows = ++$form->{rowcount};
|
|
| 668 |
my $subroutine = "display_row"; |
|
| 668 | 669 |
|
| 669 |
#set preisgruppenanzahl |
|
| 670 |
$numrows = $form->{price_rows};
|
|
| 671 |
$subroutine = "price_row"; |
|
| 670 |
if ($form->{item} eq 'part') {
|
|
| 672 | 671 |
|
| 673 |
&{$subroutine}($numrows);
|
|
| 672 |
#set preisgruppenanzahl |
|
| 673 |
$numrows = $form->{price_rows};
|
|
| 674 |
$subroutine = "price_row"; |
|
| 674 | 675 |
|
| 675 |
$numrows = ++$form->{makemodel_rows};
|
|
| 676 |
$subroutine = "makemodel_row"; |
|
| 677 |
} |
|
| 678 |
if ($form->{item} eq 'assembly') {
|
|
| 679 |
$numrows = $form->{price_rows};
|
|
| 680 |
$subroutine = "price_row"; |
|
| 676 |
&{$subroutine}($numrows);
|
|
| 677 |
|
|
| 678 |
$numrows = ++$form->{makemodel_rows};
|
|
| 679 |
$subroutine = "makemodel_row"; |
|
| 680 |
} |
|
| 681 |
if ($form->{item} eq 'assembly') {
|
|
| 682 |
$numrows = $form->{price_rows};
|
|
| 683 |
$subroutine = "price_row"; |
|
| 681 | 684 |
|
| 682 |
&{$subroutine}($numrows);
|
|
| 685 |
&{$subroutine}($numrows);
|
|
| 683 | 686 |
|
| 684 |
$numrows = ++$form->{makemodel_rows};
|
|
| 685 |
$subroutine = "makemodel_row"; |
|
| 687 |
$numrows = ++$form->{makemodel_rows};
|
|
| 688 |
$subroutine = "makemodel_row";
|
|
| 686 | 689 |
|
| 687 |
# create makemodel rows |
|
| 688 |
&{$subroutine}($numrows);
|
|
| 690 |
# create makemodel rows
|
|
| 691 |
&{$subroutine}($numrows);
|
|
| 689 | 692 |
|
| 690 |
$numrows = ++$form->{assembly_rows};
|
|
| 691 |
$subroutine = "assembly_row"; |
|
| 692 |
} |
|
| 693 |
if ($form->{item} eq 'service') {
|
|
| 694 |
$numrows = $form->{price_rows};
|
|
| 695 |
$subroutine = "price_row"; |
|
| 693 |
$numrows = ++$form->{assembly_rows};
|
|
| 694 |
$subroutine = "assembly_row";
|
|
| 695 |
}
|
|
| 696 |
if ($form->{item} eq 'service') {
|
|
| 697 |
$numrows = $form->{price_rows};
|
|
| 698 |
$subroutine = "price_row";
|
|
| 696 | 699 |
|
| 697 |
&{$subroutine}($numrows);
|
|
| 700 |
&{$subroutine}($numrows);
|
|
| 698 | 701 |
|
| 699 |
$numrows = 0; |
|
| 700 |
} |
|
| 702 |
$numrows = 0;
|
|
| 703 |
}
|
|
| 701 | 704 |
|
| 702 |
# create rows |
|
| 703 |
&{$subroutine}($numrows) if $numrows;
|
|
| 705 |
# create rows |
|
| 706 |
&{$subroutine}($numrows) if $numrows;
|
|
| 707 |
} |
|
| 704 | 708 |
|
| 705 | 709 |
&form_footer; |
| 706 | 710 |
|
Auch abrufbar als: Unified diff
fixes