Lines 25-31
use warnings;
Link Here
|
25 |
|
25 |
|
26 |
use C4::Auth; |
26 |
use C4::Auth; |
27 |
use C4::Output; |
27 |
use C4::Output; |
28 |
use C4::Dates qw/format_date/; |
28 |
use Koha::DateUtils; |
29 |
use CGI qw ( -utf8 ); |
29 |
use CGI qw ( -utf8 ); |
30 |
use C4::Members; |
30 |
use C4::Members; |
31 |
use C4::Branch; |
31 |
use C4::Branch; |
Lines 89-95
for ( my $i = 0 ; $i < $numaccts ; $i++ ) {
Link Here
|
89 |
} |
89 |
} |
90 |
|
90 |
|
91 |
my %row = ( |
91 |
my %row = ( |
92 |
'date' => format_date( $accts->[$i]{'date'} ), |
92 |
'date' => output_pref({ dt => dt_from_string( $accts->[$i]{'date'}, 'iso' ), dateonly => 1 }), |
93 |
'amountcredit' => $accts->[$i]{'amountcredit'}, |
93 |
'amountcredit' => $accts->[$i]{'amountcredit'}, |
94 |
'amountoutstandingcredit' => $accts->[$i]{'amountoutstandingcredit'}, |
94 |
'amountoutstandingcredit' => $accts->[$i]{'amountoutstandingcredit'}, |
95 |
'toggle' => $accts->[$i]{'toggle'}, |
95 |
'toggle' => $accts->[$i]{'toggle'}, |
96 |
- |
|
|