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 under the
6 # terms of the GNU General Public License as published by the Free Software
7 # Foundation; either version 3 of the License, or (at your option) any later
10 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
11 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
12 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
14 # You should have received a copy of the GNU General Public License along
15 # with Koha; if not, write to the Free Software Foundation, Inc.,
16 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
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