View | Details | Raw Unified | Return to bug 14985
Collapse All | Expand All

(-)a/C4/Overdues.pm (-2 / +2 lines)
Lines 33-38 use C4::Accounts; Link Here
33
use C4::Log; # logaction
33
use C4::Log; # logaction
34
use C4::Debug;
34
use C4::Debug;
35
use C4::Budgets qw(GetCurrency);
35
use C4::Budgets qw(GetCurrency);
36
use Koha::DateUtils;
36
37
37
use vars qw($VERSION @ISA @EXPORT);
38
use vars qw($VERSION @ISA @EXPORT);
38
39
Lines 978-984 sub parse_overdues_letter { Link Here
978
    }
979
    }
979
980
980
    my $substitute = $params->{'substitute'} || {};
981
    my $substitute = $params->{'substitute'} || {};
981
    $substitute->{today} ||= C4::Dates->new()->output("syspref");
982
    $substitute->{today} ||= output_pref( { dt => dt_from_string, dateonly => 1} );
982
983
983
    my %tables = ( 'borrowers' => $params->{'borrowernumber'} );
984
    my %tables = ( 'borrowers' => $params->{'borrowernumber'} );
984
    if ( my $p = $params->{'branchcode'} ) {
985
    if ( my $p = $params->{'branchcode'} ) {
985
- 

Return to bug 14985