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