View | Details | Raw Unified | Return to bug 14926
Collapse All | Expand All

(-)a/members/printfeercpt.pl (-3 / +2 lines)
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
- 

Return to bug 14926