parse_amount: Bei amount undef sofort 0 zurückgeben.

[mfinanz.git] / SL / Form.pm

diff --git a/SL/Form.pm b/SL/Form.pm
index e597786ecf6395747e426e28824f4ed34dd5e639..583a0a1db67339cb8c8511ff01d607cce9cc41c0 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -957,6 +957,8 @@ sub parse_amount {
 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