Revision c6a4a05a
Von Wulf vor fast 13 Jahren hinzugefügt
SL/IC.pm | ||
---|---|---|
497 | 497 |
} |
498 | 498 |
|
499 | 499 |
# insert makemodel records |
500 |
unless ($form->{item} eq 'service') { |
|
501 | 500 |
my $lastupdate = ''; |
502 | 501 |
my $value = 0; |
503 | 502 |
for my $i (1 .. $form->{makemodel_rows}) { |
... | ... | |
521 | 520 |
do_query($form, $dbh, $query, @values); |
522 | 521 |
} |
523 | 522 |
} |
524 |
} |
|
525 | 523 |
|
526 | 524 |
# insert taxes |
527 | 525 |
foreach my $item (split(/ /, $form->{taxaccounts})) { |
bin/mozilla/invoice_io.pl | ||
---|---|---|
205 | 205 |
my $numrows = ++$form->{rowcount}; |
206 | 206 |
my $subroutine = "display_row"; |
207 | 207 |
|
208 |
if ($form->{item} eq 'part') { |
|
209 |
|
|
208 |
if ($form->{item} =~ /(part|service)/) { |
|
210 | 209 |
#set preisgruppenanzahl |
211 | 210 |
$numrows = $form->{price_rows}; |
212 | 211 |
$subroutine = "price_row"; |
... | ... | |
231 | 230 |
$numrows = ++$form->{assembly_rows}; |
232 | 231 |
$subroutine = "assembly_row"; |
233 | 232 |
} |
234 |
if ($form->{item} eq 'service') { |
|
235 |
$numrows = $form->{price_rows}; |
|
236 |
$subroutine = "price_row"; |
|
237 |
|
|
238 |
&{$subroutine}($numrows); |
|
239 |
|
|
240 |
$numrows = 0; |
|
241 |
} |
|
242 | 233 |
|
243 | 234 |
# create rows |
244 | 235 |
&{$subroutine}($numrows) if $numrows; |
Auch abrufbar als: Unified diff
Fix fuer Bug 1765