From 754c5d03660e005ff418ba50674bcdeca85cb485 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Marc=20V=C3=A9ron?= <veron@veron.ch>
Date: Sun, 8 Nov 2015 20:26:26 +0100
Subject: [PATCH] Bug 14985: (followup) Remove C4::Dates from C4/Overdues.pm
Ths patch removes a stray C4::Dates from C4/Overdues.pm
- To test got to a patron who has overdues
(Home > Circulation > Checkouts > [Patron])
- Print overdues
---
C4/Overdues.pm | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/C4/Overdues.pm b/C4/Overdues.pm
index 0fc6232..72c0704 100644
--- a/C4/Overdues.pm
+++ b/C4/Overdues.pm
@@ -33,6 +33,7 @@ use C4::Accounts;
use C4::Log; # logaction
use C4::Debug;
use C4::Budgets qw(GetCurrency);
+use Koha::DateUtils;
use vars qw($VERSION @ISA @EXPORT);
@@ -978,7 +979,7 @@ sub parse_overdues_letter {
}
my $substitute = $params->{'substitute'} || {};
- $substitute->{today} ||= C4::Dates->new()->output("syspref");
+ $substitute->{today} ||= output_pref( { dt => dt_from_string, dateonly => 1} );
my %tables = ( 'borrowers' => $params->{'borrowernumber'} );
if ( my $p = $params->{'branchcode'} ) {
--
1.7.10.4