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