From: Sven Schöling <s.schoeling@linet-services.de>
Date: Tue, 28 Dec 2010 14:48:55 +0000 (+0100)
Subject: get_openbalance_date kann unter Umständen undef für $closedto bekommen, und muss... 
X-Git-Tag: release-2.6.2beta1~54
X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/kivitendo-erp.git/commitdiff_plain/4e34b4db29524fb35f017f183563bce89c29a42e?ds=sidebyside;hp=-c

get_openbalance_date kann unter Umständen undef für $closedto bekommen, und muss damit umgehen können.
---

4e34b4db29524fb35f017f183563bce89c29a42e
diff --git a/SL/RP.pm b/SL/RP.pm
index 607eb389e..84dd73e22 100644
--- a/SL/RP.pm
+++ b/SL/RP.pm
@@ -53,6 +53,8 @@ use strict;
 sub get_openbalance_date {
   my ($closedto, $target) = map { $::locale->parse_date_to_object(\%::myconfig, $_) } @_;
 
+  return unless $closedto;
+
   $closedto->subtract(years => 1) while ($target - $closedto)->is_negative;
   $closedto->add(days => 1);
   return $::locale->format_date(\%::myconfig, $closedto);