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

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

Return to bug 21909