gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 39488: Add $result to Koha::Objects `object_class` calls 

This allows us to do dynamic polymorphic classing on calls to 'find',
'find_or_create', 'single', 'next', 'last' and 'as_list' etc.

Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
Signed-off-by: Lucas Gass <lucas@bywatersolutions.com>
This commit is contained in:
Martin Renvoize 2025-01-24 11:26:51 +00:00 committed by Lucas Gass
parent f33638f14b
commit 616de7bf61
No known key found for this signature in database
GPG Key ID: 60B447398B0D36CA
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
Koha/Objects.pm
View File

@ -94,7 +94,7 @@ sub find {
unless ( !@pars || none { defined($_) } @pars ) {
my $result = $self->_resultset()->find(@pars);
if ($result) {
$object = $self->object_class()->_new_from_dbic($result);
$object = $self->object_class($result)->_new_from_dbic($result);
}
}
@ -114,7 +114,7 @@ sub find_or_create {
return unless $result;
my $object = $self->object_class->_new_from_dbic($result);
my $object = $self->object_class($result)->_new_from_dbic($result);
return $object;
}
@ -301,7 +301,7 @@ sub single {
my $single = $self->_resultset()->single;
return unless $single;
return $self->object_class()->_new_from_dbic($single);
return $self->object_class($single)->_new_from_dbic($single);
}
=head3 Koha::Objects->next();
@ -319,7 +319,7 @@ sub next {
my $result = $self->_resultset()->next();
return unless $result;
my $object = $self->object_class()->_new_from_dbic($result);
my $object = $self->object_class($result)->_new_from_dbic($result);
return $object;
}
@ -341,7 +341,7 @@ sub last {
my ($result) = $self->_resultset->slice( $count - 1, $count - 1 );
my $object = $self->object_class()->_new_from_dbic($result);
my $object = $self->object_class($result)->_new_from_dbic($result);
return $object;
}
@ -507,7 +507,7 @@ wraps the DBIC object in a corresponding Koha object
sub _wrap {
my ( $self, @dbic_rows ) = @_;
my @objects = map { $self->object_class->_new_from_dbic($_) } @dbic_rows;
my @objects = map { $self->object_class($_)->_new_from_dbic($_) } @dbic_rows;
return @objects;
}