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