Revision 377ff409
Von Moritz Bunkus vor etwa 18 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
|
}
|
||
|
my $neg = ($amount =~ s/-//);
|
||
|
|
||
|
if (defined($places)) {
|
||
|
if (defined($places) && ($places ne '')) {
|
||
|
if ($places < 0) {
|
||
|
$amount *= 1;
|
||
|
$places *= -1;
|
||
Auch abrufbar als: Unified diff
Leeren String auch als "nicht gesetzt" deuten.