1 package Koha
::Acquisition
::Fund
;
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>.
22 use base
qw(Koha::Object);
26 Koha::Acquisition::Fund object class
34 my $json = $fund->to_api;
36 Overloaded method that returns a JSON representation of the Koha::Acquisition::Fund object,
37 suitable for API output.
42 my ( $self, $args ) = @_;
44 # Preserve conflicting attribute names
45 my $budget_id = $self->budget_id;
46 my $budget_period_id = $self->budget_period_id;
48 my $json_fund = $self->SUPER::to_api
($args);
49 $json_fund->{fund_id
} = $budget_id;
50 $json_fund->{budget_id
} = $budget_period_id;
57 This method returns the mapping for representing a Koha::Acquisition::Fund object
64 budget_id
=> 'fund_id',
65 budget_code
=> 'code',
66 budget_name
=> 'name',
67 budget_branchcode
=> 'library_id',
68 budget_amount
=> 'total_amount',
69 budget_encumb
=> 'warn_at_percentage',
70 budget_expend
=> 'warn_at_amount',
71 budget_notes
=> 'notes',
72 budget_period_id
=> 'budget_id',
73 timestamp
=> 'timestamp',
74 budget_owner_id
=> 'fund_owner_id',
75 budget_permission
=> 'fund_access',
76 sort1_authcat
=> 'statistic1_auth_value_category',
77 sort2_authcat
=> 'statistic2_auth_value_category',
78 budget_parent_id
=> 'parent_fund_id',
82 =head2 Internal methods