|
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'} ), 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 |
- |
|
|