@@ -, +, @@ creator --- Koha/Acquisition/Order.pm | 1 + t/db_dependent/Koha/Acquisition/Order.t | 6 +++++- 2 files changed, 6 insertions(+), 1 deletion(-) --- a/Koha/Acquisition/Order.pm +++ a/Koha/Acquisition/Order.pm @@ -425,6 +425,7 @@ Retrieves patron that created this order. sub creator { my ( $self ) = @_; my $creator_rs = $self->_result->creator; + return unless $creator_rs; return Koha::Patron->_new_from_dbic( $creator_rs ); } --- a/t/db_dependent/Koha/Acquisition/Order.t +++ a/t/db_dependent/Koha/Acquisition/Order.t @@ -639,7 +639,7 @@ subtest 'filter_by_current & filter_by_cancelled' => sub { }; subtest 'creator ()' => sub { - plan tests => 1; + plan tests => 2; $schema->storage->txn_begin; @@ -650,6 +650,10 @@ subtest 'creator ()' => sub { is($creator->borrowernumber, $patron->borrowernumber, 'Patron is order creator'); + $creator->delete; + + is( $order->get_from_storage->creator, undef ); + $schema->storage->txn_rollback; }; --