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

(-)a/Koha/Account.pm (-7 / +2 lines)
Lines 428-440 my $lines = Koha::Account->new({ patron_id => $patron_id })->outstanding_debits; Link Here
428
sub outstanding_debits {
428
sub outstanding_debits {
429
    my ($self) = @_;
429
    my ($self) = @_;
430
430
431
    my $lines = $self->lines->search(
431
    return $self->lines->search(
432
        {
432
        {
433
            amountoutstanding => { '>' => 0 }
433
            amountoutstanding => { '>' => 0 }
434
        }
434
        }
435
    );
435
    );
436
437
    return $lines;
438
}
436
}
439
437
440
=head3 outstanding_credits
438
=head3 outstanding_credits
Lines 446-458 my $lines = Koha::Account->new({ patron_id => $patron_id })->outstanding_credits Link Here
446
sub outstanding_credits {
444
sub outstanding_credits {
447
    my ($self) = @_;
445
    my ($self) = @_;
448
446
449
    my $lines = $self->lines->search(
447
    return $self->lines->search(
450
        {
448
        {
451
            amountoutstanding => { '<' => 0 }
449
            amountoutstanding => { '<' => 0 }
452
        }
450
        }
453
    );
451
    );
454
455
    return $lines;
456
}
452
}
457
453
458
=head3 non_issues_charges
454
=head3 non_issues_charges
459
- 

Return to bug 21909