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 |
- |
|
|