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

(-)a/misc/cronjobs/overdue_notices.pl (-3 / +1 lines)
Lines 36-42 use Locale::Currency::Format 1.28; Link Here
36
use Encode;
36
use Encode;
37
37
38
use C4::Context;
38
use C4::Context;
39
use C4::Dates qw/format_date/;
40
use C4::Debug;
39
use C4::Debug;
41
use C4::Letters;
40
use C4::Letters;
42
use C4::Overdues qw(GetFine GetOverdueMessageTransportTypes);
41
use C4::Overdues qw(GetFine GetOverdueMessageTransportTypes);
Lines 838-844 sub parse_letter { Link Here
838
    }
837
    }
839
838
840
    my $substitute = $params->{'substitute'} || {};
839
    my $substitute = $params->{'substitute'} || {};
841
    $substitute->{today} ||= C4::Dates->new()->output("syspref");
840
    $substitute->{today} ||= output_pref({ dt=>DateTime->now(), dateonly=>1 });;
842
841
843
    my %tables = ( 'borrowers' => $params->{'borrowernumber'} );
842
    my %tables = ( 'borrowers' => $params->{'borrowernumber'} );
844
    if ( my $p = $params->{'branchcode'} ) {
843
    if ( my $p = $params->{'branchcode'} ) {
845
- 

Return to bug 13813