Revision efc26039
Von Udo Spallek vor fast 19 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 519 | 519 |
$main::lxdebug->enter_sub(); |
| 520 | 520 |
|
| 521 | 521 |
my ($self, $myconfig, $amount, $places, $dash) = @_; |
| 522 |
|
|
| 523 |
#Workaround for $format_amount calls without $places |
|
| 524 |
if (!defined $places){
|
|
| 525 |
(my $dec) = ($amount =~ /\.(\d+)/); |
|
| 526 |
$places = length $dec; |
|
| 527 |
} |
|
| 522 | 528 |
|
| 523 | 529 |
if ($places =~ /\d/) {
|
| 524 | 530 |
$amount = $self->round_amount($amount, $places); |
Auch abrufbar als: Unified diff
Workaround für Rundungsfehler, die da heraus entstehen, dass keine $places beim Aufruf von $form->format_amount angegeben ist.
Lösung: Es wird auf die Anzahl der Stellen gerundet, die eingegeben wurde.