Revision 58eae092
Von G. Richardson vor fast 13 Jahren hinzugefügt
| bin/mozilla/is.pl | ||
|---|---|---|
| 576 | 576 |
|
| 577 | 577 |
$form->{creditremaining} -= $amount;
|
| 578 | 578 |
|
| 579 |
map { $form->{"${_}_$i"} = $form->format_amount(\%myconfig, $form->{"${_}_$i"}, $decimalplaces) } qw(sellprice listprice lastcost);
|
|
| 579 |
map { $form->{"${_}_$i"} = $form->format_amount(\%myconfig, $form->{"${_}_$i"}, $decimalplaces) } qw(sellprice lastcost);
|
|
| 580 | 580 |
|
| 581 | 581 |
$form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"});
|
| 582 | 582 |
|
| ... | ... | |
| 938 | 938 |
# map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) }
|
| 939 | 939 |
# qw(creditlimit creditremaining); |
| 940 | 940 |
|
| 941 |
for my $i (1 .. $form->{rowcount}) {
|
|
| 942 |
for (qw(listprice)) {
|
|
| 943 |
$form->{"${_}_${i}"} = $form->parse_amount(\%myconfig, $form->{"${_}_${i}"}) if $form->{"${_}_${i}"};
|
|
| 944 |
} |
|
| 945 |
} |
|
| 946 |
|
|
| 941 | 947 |
my $currency = $form->{currency};
|
| 942 | 948 |
&invoice_links; |
| 943 | 949 |
|
Auch abrufbar als: Unified diff
Bug xxx
listprice