Bug 26922: Regression tests
[koha.git] / Koha / Acquisition / Invoice.pm
blobdf46b65a30c04be0fe3d7ac541e8da0e600598f4
1 package Koha::Acquisition::Invoice;
3 # This file is part of Koha.
5 # Koha is free software; you can redistribute it and/or modify it
6 # under the terms of the GNU General Public License as published by
7 # the Free Software Foundation; either version 3 of the License, or
8 # (at your option) any later version.
10 # Koha is distributed in the hope that it will be useful, but
11 # WITHOUT ANY WARRANTY; without even the implied warranty of
12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 # GNU General Public License for more details.
15 # You should have received a copy of the GNU General Public License
16 # along with Koha; if not, see <http://www.gnu.org/licenses>.
18 use Modern::Perl;
20 use Koha::Database;
22 use base qw(Koha::Object);
24 =head1 NAME
26 Koha::Acquisition::Invoice object class
28 =head1 API
30 =head2 Class methods
32 =head3 to_api
34 my $json = $invoice->to_api;
36 Overloaded method that returns a JSON representation of the Koha::Acquisition::Invoice object,
37 suitable for API output.
39 =cut
41 sub to_api {
42 my ( $self, $params ) = @_;
44 my $json = $self->SUPER::to_api( $params );
46 $json->{closed} = ( $self->closedate )
47 ? Mojo::JSON->true
48 : Mojo::JSON->false;
50 return $json;
53 =head3 to_api_mapping
55 This method returns the mapping for representing a Koha::Acquisition::Invoice object
56 on the API.
58 =cut
60 sub to_api_mapping {
61 return {
62 invoiceid => 'invoice_id',
63 invoicenumber => 'invoice_number',
64 booksellerid => 'vendor_id',
65 shipmentdate => 'shipping_date',
66 billingdate => 'invoice_date',
67 closedate => 'closed_date',
68 shipmentcost => 'shipping_cost',
69 shipmentcost_budgetid => 'shipping_fund_id',
70 message_id => undef
74 =head2 Internal methods
76 =head3 _type
78 =cut
80 sub _type {
81 return 'Aqinvoice';