View | Details | Raw Unified | Return to bug 18361
Collapse All | Expand All

(-)a/Koha/Objects.pm (-3 / +4 lines)
Lines 72-86 sub _new_from_dbic { Link Here
72
72
73
my $object = Koha::Objects->find($id);
73
my $object = Koha::Objects->find($id);
74
my $object = Koha::Objects->find( { keypart1 => $keypart1, keypart2 => $keypart2 } );
74
my $object = Koha::Objects->find( { keypart1 => $keypart1, keypart2 => $keypart2 } );
75
my $object = Koha::Objects->find($id1, $id2); # composite PK
75
76
76
=cut
77
=cut
77
78
78
sub find {
79
sub find {
79
    my ( $self, $id ) = @_;
80
    my ( $self, @id ) = @_;
80
81
81
    return unless defined($id);
82
    return unless @id;
82
83
83
    my $result = $self->_resultset()->find($id);
84
    my $result = $self->_resultset()->find(@id);
84
85
85
    return unless $result;
86
    return unless $result;
86
87
(-)a/t/lib/TestBuilder.pm (-2 / +1 lines)
Lines 74-80 sub build_object { Link Here
74
    my @ids;
74
    my @ids;
75
75
76
    foreach my $pk ( @pks ) {
76
    foreach my $pk ( @pks ) {
77
        push @ids, { $pk => $hashref->{ $pk } };
77
        push @ids, $hashref->{ $pk };
78
    }
78
    }
79
79
80
    my $object = $class->find( @ids );
80
    my $object = $class->find( @ids );
81
- 

Return to bug 18361