|
Lines 93-98
sub account_lines {
Link Here
|
| 93 |
return Koha::Account::Lines->_new_from_dbic( $account_lines_rs ); |
93 |
return Koha::Account::Lines->_new_from_dbic( $account_lines_rs ); |
| 94 |
} |
94 |
} |
| 95 |
|
95 |
|
|
|
96 |
=head3 overdue_fines |
| 97 |
|
| 98 |
my $fines = $checkout->overdue_fines; |
| 99 |
|
| 100 |
Return the account lines for just the overdue fines |
| 101 |
|
| 102 |
=cut |
| 103 |
|
| 104 |
sub overdue_fines { |
| 105 |
my ( $self ) = @_; |
| 106 |
my $account_lines_rs = $self->_result->account_lines->search( { debit_type_code => 'OVERDUE' } ); |
| 107 |
return Koha::Account::Lines->_new_from_dbic( $account_lines_rs ); |
| 108 |
} |
| 109 |
|
| 96 |
=head3 library |
110 |
=head3 library |
| 97 |
|
111 |
|
| 98 |
my $library = $checkout->library; |
112 |
my $library = $checkout->library; |
| 99 |
- |
|
|