From c450a7a845dec52c94efb4eeaf0c9a1b28086088 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Marc=20V=C3=A9ron?= Date: Sun, 15 Mar 2015 09:33:37 +0100 Subject: [PATCH] Bug 13813 - Remove C4::Dates from members/printfeercpt.pl To test: Apply patch Go to a patrons Account In table of fines / transactions, column 'Print', click on 'Print' of a payment transaction ("Payment, thanks") Verify that the date displays correctly on the receipt. Amended for proper input for dt_from_string - (is 'iso') --- members/printfeercpt.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/members/printfeercpt.pl b/members/printfeercpt.pl index 1a138f8..d015052 100755 --- a/members/printfeercpt.pl +++ b/members/printfeercpt.pl @@ -27,7 +27,7 @@ use warnings; use C4::Auth; use C4::Output; -use C4::Dates qw/format_date/; +use Koha::DateUtils; use CGI qw ( -utf8 ); use C4::Members; use C4::Branch; @@ -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'} ), dateonly => 1 }), 'amountcredit' => $accts->[$i]{'amountcredit'}, 'amountoutstandingcredit' => $accts->[$i]{'amountoutstandingcredit'}, 'toggle' => $accts->[$i]{'toggle'}, -- 1.7.10.4