Revision e48dce45
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
| SL/OE.pm | ||
|---|---|---|
| 532 | 532 |
|
| 533 | 533 |
my ($self, $myconfig, $form) = @_; |
| 534 | 534 |
|
| 535 |
for my $i (1 .. $form->{rowcount}) {
|
|
| 536 |
|
|
| 537 |
map {
|
|
| 538 |
$form->{"${_}_$i"} =
|
|
| 539 |
$form->parse_amount($myconfig, $form->{"${_}_$i"})
|
|
| 540 |
} qw(qty ship); |
|
| 541 |
if ($delete_oe_id) {
|
|
| 542 |
$form->{"orderitems_id_$i"} = "";
|
|
| 543 |
} |
|
| 544 |
|
|
| 545 |
if ($form->{"qty_$i"}) {
|
|
| 546 |
|
|
| 547 |
# set values to 0 if nothing entered |
|
| 548 |
$form->{"discount_$i"} =
|
|
| 549 |
$form->parse_amount($myconfig, $form->{"discount_$i"});
|
|
| 550 |
|
|
| 551 |
$form->{"sellprice_$i"} =
|
|
| 552 |
$form->parse_amount($myconfig, $form->{"sellprice_$i"});
|
|
| 553 |
} |
|
| 554 |
} |
|
| 555 |
|
|
| 556 | 535 |
# get ids from $form |
| 557 | 536 |
map { push @ids, $form->{"ordnumber_$_"} if $form->{"ordnumber_$_"} }
|
| 558 | 537 |
(1 .. $form->{rowcount});
|
Auch abrufbar als: Unified diff
Beim Schließen mehrerer Aufträge nicht nochmal die Werte parsen -- das geschieht bereits in den .pls. Fix für Bug 529.