-my @accountrows; # this is for the tmpl-loop
-
-my $toggle;
-for (my $i=0;$i<$numaccts;$i++){
- next if ($accts->[$i]{'accountno'} ne $accountno);
- if($i%2){
- $toggle = 0;
- } else {
- $toggle = 1;
- }
- $accts->[$i]{'toggle'} = $toggle;
- $accts->[$i]{'amount'}+=0.00;
- if($accts->[$i]{'amount'} <= 0){
- $accts->[$i]{'amountcredit'} = 1;
- $accts->[$i]{'amount'}*=-1.00;
- }
- $accts->[$i]{'amountoutstanding'}+=0.00;
- if($accts->[$i]{'amountoutstanding'} <= 0){
- $accts->[$i]{'amountoutstandingcredit'} = 1;
- }
- my %row = ( 'date' => format_date($accts->[$i]{'date'}),
- 'amountcredit' => $accts->[$i]{'amountcredit'},
- 'amountoutstandingcredit' => $accts->[$i]{'amountoutstandingcredit'},
- 'toggle' => $accts->[$i]{'toggle'},
- 'description' => $accts->[$i]{'description'},
- 'itemnumber' => $accts->[$i]{'itemnumber'},
- 'biblionumber' => $accts->[$i]{'biblionumber'},
- 'amount' => sprintf("%.2f",$accts->[$i]{'amount'}),
- 'amountoutstanding' => sprintf("%.2f",$accts->[$i]{'amountoutstanding'}),
- 'accountno' => $accts->[$i]{'accountno'},
- 'payment' => ( $accts->[$i]{'accounttype'} eq 'Pay' ),
-
- );
-
- if ($accts->[$i]{'accounttype'} ne 'F' && $accts->[$i]{'accounttype'} ne 'FU'){
- $row{'printtitle'}=1;
- $row{'title'} = $accts->[$i]{'title'};
- }
-
- push(@accountrows, \%row);
+
+$accountline->{'amount'} += 0.00;
+if ( $accountline->{'amount'} <= 0 ) {
+ $accountline->{'amountcredit'} = 1;
+ $accountline->{'amount'} *= -1.00;
+}
+$accountline->{'amountoutstanding'} += 0.00;
+if ( $accountline->{'amountoutstanding'} <= 0 ) {
+ $accountline->{'amountoutstandingcredit'} = 1;