get_openbalance_date kann unter Umständen undef für $closedto bekommen, und muss...
authorSven Schöling <s.schoeling@linet-services.de>
Tue, 28 Dec 2010 14:48:55 +0000 (15:48 +0100)
committerSven Schöling <s.schoeling@linet-services.de>
Tue, 28 Dec 2010 14:48:55 +0000 (15:48 +0100)
SL/RP.pm

index 607eb38..84dd73e 100644 (file)
--- 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);