From 4c10a8fb7567b5d7a39fa7c1663240148a99add1 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Marc=20V=C3=A9ron?= 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 Works as advertised. Date displayed 2015-10-08 Signed-off-by: Jonathan Druart Signed-off-by: Tomas Cohen Arazi --- 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