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