Lines 1424-1437
on the API.
Link Here
|
1424 |
sub to_api { |
1424 |
sub to_api { |
1425 |
my ($self, $args) = @_; |
1425 |
my ($self, $args) = @_; |
1426 |
|
1426 |
|
1427 |
my $response = $self->SUPER::to_api( $args ); |
1427 |
my $json_biblio = $self->SUPER::to_api( $args ); |
|
|
1428 |
return unless $json_biblio; |
1428 |
|
1429 |
|
1429 |
$args = defined $args ? {%$args} : {}; |
1430 |
$args = defined $args ? {%$args} : {}; |
1430 |
delete $args->{embed}; |
1431 |
delete $args->{embed}; |
1431 |
|
1432 |
|
1432 |
my $biblioitem = $self->biblioitem->to_api( $args ); |
1433 |
my $json_biblioitem = $self->biblioitem->to_api( $args ); |
|
|
1434 |
return unless $json_biblioitem; |
1433 |
|
1435 |
|
1434 |
return { %$response, %$biblioitem }; |
1436 |
return { %$json_biblio, %$json_biblioitem }; |
1435 |
} |
1437 |
} |
1436 |
|
1438 |
|
1437 |
=head3 to_api_mapping |
1439 |
=head3 to_api_mapping |