@@ -, +, @@ related to this Koha::Account::Line. to this Koha::Account::Line. --- Koha/Account/Line.pm | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) --- a/Koha/Account/Line.pm +++ a/Koha/Account/Line.pm @@ -82,6 +82,32 @@ sub checkout { return $self->{_checkout}; } +=head3 credit_offsets + +Return the credit_offsets linked to this account line if some exist + +=cut + +sub credit_offsets { + my ( $self ) = @_; + my $rs = $self->_result->account_offsets_credits; + return unless $rs; + return Koha::Account::Offsets->_new_from_dbic( $rs ); +} + +=head3 debit_offsets + +Return the debit_offsets linked to this account line if some exist + +=cut + +sub debit_offsets { + my ( $self ) = @_; + my $rs = $self->_result->account_offsets_debits; + return unless $rs; + return Koha::Account::Offsets->_new_from_dbic( $rs ); +} + =head3 void $payment_accountline->void(); --