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);
}
# get end of financial year and convert to Date format
- my ($closedto) = selectfirst_arrayref_query($form, $dbh, 'SELECT closedto FROM defaults');
+ my ($closedto) = selectfirst_array_query($form, $dbh, 'SELECT closedto FROM defaults');
# get date of last opening balance
my $startdate = get_openbalance_date($closedto, $form->{asofdate});