|
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 |
- |
|
|