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 |
- |
|
|