|
Lines 27-37
use warnings;
Link Here
|
| 27 |
|
27 |
|
| 28 |
use C4::Auth; |
28 |
use C4::Auth; |
| 29 |
use C4::Output; |
29 |
use C4::Output; |
| 30 |
use C4::Dates qw/format_date/; |
|
|
| 31 |
use CGI qw ( -utf8 ); |
30 |
use CGI qw ( -utf8 ); |
| 32 |
use C4::Members; |
31 |
use C4::Members; |
| 33 |
use C4::Branch; |
32 |
use C4::Branch; |
| 34 |
use C4::Accounts; |
33 |
use C4::Accounts; |
|
|
34 |
use Koha::DateUtils; |
| 35 |
|
35 |
|
| 36 |
my $input=new CGI; |
36 |
my $input=new CGI; |
| 37 |
|
37 |
|
|
Lines 89-95
for (my $i=0;$i<$numaccts;$i++){
Link Here
|
| 89 |
if($accts->[$i]{'amountoutstanding'} <= 0){ |
89 |
if($accts->[$i]{'amountoutstanding'} <= 0){ |
| 90 |
$accts->[$i]{'amountoutstandingcredit'} = 1; |
90 |
$accts->[$i]{'amountoutstandingcredit'} = 1; |
| 91 |
} |
91 |
} |
| 92 |
my %row = ( 'date' => format_date($accts->[$i]{'date'}), |
92 |
my %row = ( 'date' => output_pref({ dt => dt_from_string( $accts->[$i]{'date'} ), dateformat => '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 |
- |
|
|