Lines 1336-1349
on the API.
Link Here
|
1336 |
sub to_api { |
1336 |
sub to_api { |
1337 |
my ($self, $args) = @_; |
1337 |
my ($self, $args) = @_; |
1338 |
|
1338 |
|
1339 |
my $response = $self->SUPER::to_api( $args ); |
1339 |
my $json_biblio = $self->SUPER::to_api( $args ); |
|
|
1340 |
return unless $json_biblio; |
1340 |
|
1341 |
|
1341 |
$args = defined $args ? {%$args} : {}; |
1342 |
$args = defined $args ? {%$args} : {}; |
1342 |
delete $args->{embed}; |
1343 |
delete $args->{embed}; |
1343 |
|
1344 |
|
1344 |
my $biblioitem = $self->biblioitem->to_api( $args ); |
1345 |
my $json_biblioitem = $self->biblioitem->to_api( $args ); |
|
|
1346 |
return unless $json_biblioitem; |
1345 |
|
1347 |
|
1346 |
return { %$response, %$biblioitem }; |
1348 |
return { %$json_biblio, %$json_biblioitem }; |
1347 |
} |
1349 |
} |
1348 |
|
1350 |
|
1349 |
=head3 to_api_mapping |
1351 |
=head3 to_api_mapping |