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