@@ -, +, @@ --- Koha/Object.pm | 4 ++-- Koha/Objects.pm | 2 ++ 2 files changed, 4 insertions(+), 2 deletions(-) --- a/Koha/Object.pm +++ a/Koha/Object.pm @@ -106,7 +106,7 @@ Returns: sub store { my ($self) = @_; - return $self->_result()->update_or_insert() ? 1 : 0; + return $self->_result()->update_or_insert() ? $self : undef; } =head3 $object->in_storage(); @@ -190,7 +190,7 @@ sub set { } } - return $self->_result()->set_columns($properties) ? 1 : undef; + return $self->_result()->set_columns($properties) ? $self : undef; } =head3 $object->id(); --- a/Koha/Objects.pm +++ a/Koha/Objects.pm @@ -80,6 +80,8 @@ my $object = Koha::Objects->find( { keypart1 => $keypart1, keypart2 => $keypart2 sub find { my ( $self, $id ) = @_; + return unless $id; + my $result = $self->_resultset()->find($id); my $object = $self->object_class()->_new_from_dbic( $result ); --