Revision cf3bfc27
Von Stephan Köhler vor mehr als 19 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
my ($self, $myconfig, $amount, $places, $dash) = @_;
|
||
|
|
||
|
#Workaround for $format_amount calls without $places
|
||
|
if (!defined $places){
|
||
|
(my $dec) = ($amount =~ /\.(\d+)/);
|
||
|
$places = length $dec;
|
||
|
}
|
||
|
|
||
|
if ($places =~ /\d/) {
|
||
|
$amount = $self->round_amount($amount, $places);
|
||
Auch abrufbar als: Unified diff
Merge von 705 aus unstable: format_amount
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.