Revision 4e34b4db
Von Sven Schöling vor fast 14 Jahren hinzugefügt
| SL/RP.pm | ||
|---|---|---|
| 53 | 53 |
sub get_openbalance_date {
|
| 54 | 54 |
my ($closedto, $target) = map { $::locale->parse_date_to_object(\%::myconfig, $_) } @_;
|
| 55 | 55 |
|
| 56 |
return unless $closedto; |
|
| 57 |
|
|
| 56 | 58 |
$closedto->subtract(years => 1) while ($target - $closedto)->is_negative; |
| 57 | 59 |
$closedto->add(days => 1); |
| 58 | 60 |
return $::locale->format_date(\%::myconfig, $closedto); |
Auch abrufbar als: Unified diff
get_openbalance_date kann unter Umständen undef für $closedto bekommen, und muss damit umgehen können.