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

Bug 24432: add Koha::Objects->from_api_mapping 

This patch adds from_api_mapping to Koha::Objects, in order to be able to get the mapping from a result set.

To test:
1. apply this patch
2. prove t/db_dependent/Koha/Objects.t
3. sign off

Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
This commit is contained in:
Agustin Moyano 2020-01-15 20:10:01 -03:00 committed by Martin Renvoize
parent d8bd366b5c
commit 62da76b84b
No known key found for this signature in database
GPG Key ID: 422B469130441A0F
2 changed files with 33 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
Koha/Objects.pm
View File

@ -335,6 +335,21 @@ sub attributes_from_api {
return $self->{_singular_object}->attributes_from_api( $attributes );
}
=head3 from_api_mapping
my $mapped_attributes_hash = $objects->from_api_mapping;
Attributes map from the API to DBIC
=cut
sub from_api_mapping {
my ( $self ) = @_;
$self->{_singular_object} ||= $self->object_class->new();
return $self->{_singular_object}->from_api_mapping;
}
=head3 Koha::Objects->_wrap
wraps the DBIC object in a corresponding Koha object

19
t/db_dependent/Koha/Objects.t
View File

@ -19,7 +19,7 @@
use Modern::Perl;
use Test::More tests => 19;
use Test::More tests => 20;
use Test::Exception;
use Test::Warn;
@ -760,3 +760,20 @@ subtest "attributes_from_api() tests" => sub {
$schema->storage->txn_rollback;
};
subtest "from_api_mapping() tests" => sub {
plan tests => 1;
$schema->storage->txn_begin;
my $cities_rs = Koha::Cities->new;
my $city = Koha::City->new;
is_deeply(
$cities_rs->from_api_mapping,
$city->from_api_mapping
);
$schema->storage->txn_rollback;
};