Revision e3aa3f5b
Von Moritz Bunkus vor mehr als 11 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 931 | 931 |
|
| 932 | 932 |
my ($self, $myconfig, $amount) = @_; |
| 933 | 933 |
|
| 934 |
if (!defined($amount) || ($amount eq '')) {
|
|
| 935 |
$main::lxdebug->leave_sub(2); |
|
| 936 |
return 0; |
|
| 937 |
} |
|
| 938 |
|
|
| 934 | 939 |
if ( ($myconfig->{numberformat} eq '1.000,00')
|
| 935 | 940 |
|| ($myconfig->{numberformat} eq '1000,00')) {
|
| 936 | 941 |
$amount =~ s/\.//g; |
Auch abrufbar als: Unified diff
Warnungen über undefinierte/nicht numerische Werte vermeiden