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

(-)a/Koha/Objects.pm (-7 / +6 lines)
Lines 94-100 sub find { Link Here
94
    unless ( !@pars || none { defined($_) } @pars ) {
94
    unless ( !@pars || none { defined($_) } @pars ) {
95
        my $result = $self->_resultset()->find(@pars);
95
        my $result = $self->_resultset()->find(@pars);
96
        if ($result) {
96
        if ($result) {
97
            $object = $self->object_class()->_new_from_dbic($result);
97
            $object = $self->object_class($result)->_new_from_dbic($result);
98
        }
98
        }
99
    }
99
    }
100
100
Lines 114-120 sub find_or_create { Link Here
114
114
115
    return unless $result;
115
    return unless $result;
116
116
117
    my $object = $self->object_class->_new_from_dbic($result);
117
    my $object = $self->object_class($result)->_new_from_dbic($result);
118
118
119
    return $object;
119
    return $object;
120
}
120
}
Lines 301-307 sub single { Link Here
301
    my $single = $self->_resultset()->single;
301
    my $single = $self->_resultset()->single;
302
    return unless $single;
302
    return unless $single;
303
303
304
    return $self->object_class()->_new_from_dbic($single);
304
    return $self->object_class($single)->_new_from_dbic($single);
305
}
305
}
306
306
307
=head3 Koha::Objects->next();
307
=head3 Koha::Objects->next();
Lines 319-325 sub next { Link Here
319
    my $result = $self->_resultset()->next();
319
    my $result = $self->_resultset()->next();
320
    return unless $result;
320
    return unless $result;
321
321
322
    my $object = $self->object_class()->_new_from_dbic($result);
322
    my $object = $self->object_class($result)->_new_from_dbic($result);
323
323
324
    return $object;
324
    return $object;
325
}
325
}
Lines 341-347 sub last { Link Here
341
341
342
    my ($result) = $self->_resultset->slice( $count - 1, $count - 1 );
342
    my ($result) = $self->_resultset->slice( $count - 1, $count - 1 );
343
343
344
    my $object = $self->object_class()->_new_from_dbic($result);
344
    my $object = $self->object_class($result)->_new_from_dbic($result);
345
345
346
    return $object;
346
    return $object;
347
}
347
}
Lines 507-513 wraps the DBIC object in a corresponding Koha object Link Here
507
sub _wrap {
507
sub _wrap {
508
    my ( $self, @dbic_rows ) = @_;
508
    my ( $self, @dbic_rows ) = @_;
509
509
510
    my @objects = map { $self->object_class->_new_from_dbic($_) } @dbic_rows;
510
    my @objects = map { $self->object_class($_)->_new_from_dbic($_) } @dbic_rows;
511
511
512
    return @objects;
512
    return @objects;
513
}
513
}
514
- 

Return to bug 39190