@@ -, +, @@ Koha::Old::Checkout --- Koha/Checkout.pm | 14 ++++++++++++ Koha/Old/Checkout.pm | 14 ++++++++++++ t/db_dependent/Koha/Account/Line.t | 5 ++++- t/db_dependent/Koha/Checkouts.t | 35 +++++++++++++++++++++++++++++- 4 files changed, 66 insertions(+), 2 deletions(-) --- a/Koha/Checkout.pm +++ a/Koha/Checkout.pm @@ -79,6 +79,20 @@ sub item { return Koha::Item->_new_from_dbic( $item_rs ); } +=head3 accountlines + +my $accountlines = $checkout->accountlines; + +Return the checked out accountlines + +=cut + +sub accountlines { + my ( $self ) = @_; + my $accountlines_rs = $self->_result->accountlines; + return Koha::Account::Lines->_new_from_dbic( $accountlines_rs ); +} + =head3 library my $library = $checkout->library; --- a/Koha/Old/Checkout.pm +++ a/Koha/Old/Checkout.pm @@ -45,6 +45,20 @@ sub item { return Koha::Item->_new_from_dbic( $item_rs ); } +=head3 accountlines + +my $accountlines = $checkout->accountlines; + +Return the checked out accountlines + +=cut + +sub accountlines { + my ( $self ) = @_; + my $accountlines_rs = $self->_result->accountlines; + return Koha::Account::Lines->_new_from_dbic( $accountlines_rs ); +} + =head3 library my $library = $checkout->library; --- a/t/db_dependent/Koha/Account/Line.t +++ a/t/db_dependent/Koha/Account/Line.t @@ -203,7 +203,7 @@ subtest 'is_credit() and is_debit() tests' => sub { subtest 'apply() tests' => sub { - plan tests => 31; + plan tests => 32; $schema->storage->txn_begin; @@ -346,6 +346,9 @@ subtest 'apply() tests' => sub { } )->store(); + my $a = $checkout->accountlines->next; + is( $a->id, $accountline->id, "Koha::Checkout::accountlines returns the related acountline" ); + # Enable renewing upon fine payment t::lib::Mocks::mock_preference( 'RenewAccruingItemWhenPaid', 1 ); my $called = 0; --- a/t/db_dependent/Koha/Checkouts.t +++ a/t/db_dependent/Koha/Checkouts.t @@ -19,7 +19,7 @@ use Modern::Perl; -use Test::More tests => 10; +use Test::More tests => 11; use C4::Circulation qw( MarkIssueReturned AddReturn ); use Koha::Checkouts; @@ -110,6 +110,39 @@ subtest 'item' => sub { 'Koha::Checkout->item should return the correct item' ); }; +subtest 'accountlines' => sub { + plan tests => 3; + + my $accountline = Koha::Account::Line->new( + { + issue_id => $retrieved_checkout_1->id, + borrowernumber => $retrieved_checkout_1->borrowernumber, + itemnumber => $retrieved_checkout_1->itemnumber, + branchcode => $retrieved_checkout_1->branchcode, + date => \'NOW()', + debit_type_code => 'OVERDUE', + status => 'UNRETURNED', + interface => 'cli', + amount => '1', + amountoutstanding => '1', + } + )->store(); + + my $accountlines = $retrieved_checkout_1->accountlines; + is( ref($accountlines), 'Koha::Account::Lines', + 'Koha::Checkout->accountlines should return a Koha::Item' ); + + my $line = $accountlines->next; + is( ref($line), 'Koha::Account::Line', + 'next returns a Koha::Account::Line' ); + + is( + $accountline->id, + $line->id, + 'Koha::Checkout->accountlines should return the correct accountlines' + ); +}; + subtest 'patron' => sub { plan tests => 3; my $patron = $builder->build_object( --