@@ -, +, @@ --- Koha/Acquisition/Basket.pm | 7 ++++--- Koha/Acquisition/Fund.pm | 2 ++ Koha/Acquisition/Invoice.pm | 7 ++++--- Koha/Biblio.pm | 8 +++++--- Koha/SMTP/Server.pm | 7 ++++--- 5 files changed, 19 insertions(+), 12 deletions(-) --- a/Koha/Acquisition/Basket.pm +++ a/Koha/Acquisition/Basket.pm @@ -250,13 +250,14 @@ suitable for API output. sub to_api { my ( $self, $params ) = @_; - my $json = $self->SUPER::to_api( $params ); + my $json_basket = $self->SUPER::to_api( $params ); + return unless $json_basket; - $json->{closed} = ( $self->closedate ) + $json_basket->{closed} = ( $self->closedate ) ? Mojo::JSON->true : Mojo::JSON->false; - return $json; + return $json_basket; } =head3 to_api_mapping --- a/Koha/Acquisition/Fund.pm +++ a/Koha/Acquisition/Fund.pm @@ -62,6 +62,8 @@ sub to_api { my $budget_period_id = $self->budget_period_id; my $json_fund = $self->SUPER::to_api($args); + return unless $json_fund; + $json_fund->{fund_id} = $budget_id; $json_fund->{budget_id} = $budget_period_id; --- a/Koha/Acquisition/Invoice.pm +++ a/Koha/Acquisition/Invoice.pm @@ -41,13 +41,14 @@ suitable for API output. sub to_api { my ( $self, $params ) = @_; - my $json = $self->SUPER::to_api( $params ); + my $json_invoice = $self->SUPER::to_api( $params ); + return unless $json_invoice; - $json->{closed} = ( $self->closedate ) + $json_invoice->{closed} = ( $self->closedate ) ? Mojo::JSON->true : Mojo::JSON->false; - return $json; + return $json_invoice; } =head3 to_api_mapping --- a/Koha/Biblio.pm +++ a/Koha/Biblio.pm @@ -979,10 +979,12 @@ on the API. sub to_api { my ($self, $args) = @_; - my $response = $self->SUPER::to_api( $args ); - my $biblioitem = $self->biblioitem->to_api; + my $json_biblio = $self->SUPER::to_api( $args ); + return unless $json_biblio; + my $json_biblioitem = $self->biblioitem->to_api; + return unless $json_biblioitem; - return { %$response, %$biblioitem }; + return { %$json_biblio, %$json_biblioitem }; } =head3 to_api_mapping --- a/Koha/SMTP/Server.pm +++ a/Koha/SMTP/Server.pm @@ -112,10 +112,11 @@ suitable for API output. sub to_api { my ( $self, $params ) = @_; - my $json = $self->SUPER::to_api( $params ); - delete $json->{password}; + my $json_smtp = $self->SUPER::to_api( $params ); + return unless $json_smtp; + delete $json_smtp->{password}; - return $json; + return $json_smtp; } =head3 to_api_mapping --