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

(-)a/Koha/Account.pm (-1 / +32 lines)
Lines 422-427 sub outstanding_debits { Link Here
422
    return $lines;
422
    return $lines;
423
}
423
}
424
424
425
=head3 outstanding_credits
426
427
my ( $total, $lines ) = Koha::Account->new({ patron_id => $patron_id })->outstanding_credits;
428
429
=cut
430
431
sub outstanding_credits {
432
    my ($self) = @_;
433
434
    my $outstanding_credits = Koha::Account::Lines->search(
435
        {   borrowernumber    => $self->{patron_id},
436
            amountoutstanding => { '<' => 0 }
437
        },
438
        {   select => [ { sum => 'amountoutstanding' } ],
439
            as     => ['outstanding_credits_total'],
440
        }
441
    );
442
    my $total
443
        = ( $outstanding_credits->count )
444
        ? $outstanding_credits->next->get_column('outstanding_credits_total') + 0
445
        : 0;
446
447
    my $lines = Koha::Account::Lines->search(
448
        {
449
            borrowernumber    => $self->{patron_id},
450
            amountoutstanding => { '<' => 0 }
451
        }
452
    );
453
454
    return ( $total, $lines );
455
}
456
425
=head3 non_issues_charges
457
=head3 non_issues_charges
426
458
427
my $non_issues_charges = $self->non_issues_charges
459
my $non_issues_charges = $self->non_issues_charges
428
- 

Return to bug 20990