@@ -, +, @@ members/printfeercpt.pl - 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 --- members/printfeercpt.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) --- a/members/printfeercpt.pl +++ a/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'}, --