Lines 791-806
on the API.
Link Here
|
791 |
sub to_api { |
791 |
sub to_api { |
792 |
my ($self, $args) = @_; |
792 |
my ($self, $args) = @_; |
793 |
|
793 |
|
794 |
my @embeds = keys %{ $args->{embed} }; |
|
|
795 |
my $remaining_embeds = {}; |
796 |
|
797 |
foreach my $embed (@embeds) { |
798 |
$remaining_embeds = delete $args->{embed}->{$embed} |
799 |
unless $self->can($embed); |
800 |
} |
801 |
|
802 |
my $response = $self->SUPER::to_api( $args ); |
794 |
my $response = $self->SUPER::to_api( $args ); |
803 |
my $biblioitem = $self->biblioitem->to_api({ embed => $remaining_embeds }); |
795 |
my $biblioitem = $self->biblioitem->to_api; |
804 |
|
796 |
|
805 |
return { %$response, %$biblioitem }; |
797 |
return { %$response, %$biblioitem }; |
806 |
} |
798 |
} |
807 |
- |
|
|