@@ -, +, @@ primary keys --- Koha/Objects.pm | 7 ++++--- t/lib/TestBuilder.pm | 2 +- 2 files changed, 5 insertions(+), 4 deletions(-) --- a/Koha/Objects.pm +++ a/Koha/Objects.pm @@ -72,15 +72,16 @@ sub _new_from_dbic { my $object = Koha::Objects->find($id); my $object = Koha::Objects->find( { keypart1 => $keypart1, keypart2 => $keypart2 } ); +my $object = Koha::Objects->find($id1, $id2); # composite PK =cut sub find { - my ( $self, $id ) = @_; + my ( $self, @id ) = @_; - return unless defined($id); + return unless @id; - my $result = $self->_resultset()->find($id); + my $result = $self->_resultset()->find(@id); return unless $result; --- a/t/lib/TestBuilder.pm +++ a/t/lib/TestBuilder.pm @@ -74,7 +74,7 @@ sub build_object { my @ids; foreach my $pk ( @pks ) { - push @ids, { $pk => $hashref->{ $pk } }; + push @ids, $hashref->{ $pk }; } my $object = $class->find( @ids ); --