Revision 74f245fb
Von Sven Schöling vor fast 10 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
|
sub round_amount {
|
||
|
my ($self, $amount, $places) = @_;
|
||
|
|
||
|
return 0 if !defined $amount;
|
||
|
|
||
|
# We use Perl's knowledge of string representation for
|
||
|
# rounding. First, convert the floating point number to a string
|
||
|
# with a high number of places. Then split the string on the decimal
|
||
Auch abrufbar als: Unified diff
parse_amount: Bei amount undef sofort 0 zurückgeben.