Lines 73-79
if($total <= 0){
Link Here
|
73 |
$totalcredit = 1; |
73 |
$totalcredit = 1; |
74 |
} |
74 |
} |
75 |
|
75 |
|
76 |
my $reverse_col = 0; # Flag whether we need to show the reverse column |
|
|
77 |
foreach my $accountline ( @{$accts}) { |
76 |
foreach my $accountline ( @{$accts}) { |
78 |
$accountline->{amount} += 0.00; |
77 |
$accountline->{amount} += 0.00; |
79 |
if ($accountline->{amount} <= 0 ) { |
78 |
if ($accountline->{amount} <= 0 ) { |
Lines 88-94
foreach my $accountline ( @{$accts}) {
Link Here
|
88 |
$accountline->{amountoutstanding} = sprintf '%.2f', $accountline->{amountoutstanding}; |
87 |
$accountline->{amountoutstanding} = sprintf '%.2f', $accountline->{amountoutstanding}; |
89 |
if ($accountline->{accounttype} =~ /^Pay/) { |
88 |
if ($accountline->{accounttype} =~ /^Pay/) { |
90 |
$accountline->{payment} = 1; |
89 |
$accountline->{payment} = 1; |
91 |
$reverse_col = 1; |
|
|
92 |
} |
90 |
} |
93 |
} |
91 |
} |
94 |
|
92 |
|
Lines 113-119
$template->param(
Link Here
|
113 |
total => sprintf("%.2f",$total), |
111 |
total => sprintf("%.2f",$total), |
114 |
totalcredit => $totalcredit, |
112 |
totalcredit => $totalcredit, |
115 |
is_child => ($data->{'category_type'} eq 'C'), |
113 |
is_child => ($data->{'category_type'} eq 'C'), |
116 |
reverse_col => $reverse_col, |
|
|
117 |
accounts => $accts, |
114 |
accounts => $accts, |
118 |
activeBorrowerRelationship => (C4::Context->preference('borrowerRelationship') ne ''), |
115 |
activeBorrowerRelationship => (C4::Context->preference('borrowerRelationship') ne ''), |
119 |
RoutingSerials => C4::Context->preference('RoutingSerials'), |
116 |
RoutingSerials => C4::Context->preference('RoutingSerials'), |
120 |
- |
|
|