From 4c10a8fb7567b5d7a39fa7c1663240148a99add1 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Marc=20V=C3=A9ron?= <veron@veron.ch>
Date: Tue, 29 Sep 2015 18:42:06 +0200
Subject: [PATCH] Bug 14926: Remove C4::Dates from members/printfeercpt.pl

This patch removes C4::Dates from members/printfeercpt.pl

To test:

- Go to a patron's fines (members/boraccount.pl) and make sure that
  he/she has made a payment
- Select 'Print' in the payment's line
- Verify that the payment date on the slip displays correctly

Signed-off-by: Hector Castro <hector.hecaxmmx@gmail.com>
Works as advertised. Date displayed 2015-10-08

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
---
 members/printfeercpt.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/members/printfeercpt.pl b/members/printfeercpt.pl
index 8ffc49ff7c..6d4d75a62d 100755
--- a/members/printfeercpt.pl
+++ b/members/printfeercpt.pl
@@ -27,11 +27,11 @@ use warnings;
 
 use C4::Auth;
 use C4::Output;
-use C4::Dates qw/format_date/;
 use CGI qw ( -utf8 );
 use C4::Members;
 use C4::Branch;
 use C4::Accounts;
+use Koha::DateUtils;
 
 my $input=new CGI;
 
@@ -89,7 +89,7 @@ for (my $i=0;$i<$numaccts;$i++){
     if($accts->[$i]{'amountoutstanding'} <= 0){
         $accts->[$i]{'amountoutstandingcredit'} = 1;
     }
-    my %row = ( 'date'              => format_date($accts->[$i]{'date'}),
+    my %row = ( 'date'              => output_pref({ dt => dt_from_string( $accts->[$i]{'date'} ), dateformat => 'iso', dateonly => 1 }),
                 'amountcredit' => $accts->[$i]{'amountcredit'},
                 'amountoutstandingcredit' => $accts->[$i]{'amountoutstandingcredit'},
                 'toggle' => $accts->[$i]{'toggle'},
-- 
2.39.5