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