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>.
20 use Koha::Acquisition::Budgets;
23 use base qw(Koha::Object);
27 Koha::Acquisition::Fund object class
35 my $budget = $fund->budget;
37 Returns the I<Koha::Acquisition::Budget> object for the budget (aqbudgetperiods)
38 associated to the fund.
44 my $budget_rs = $self->_result->budget;
45 return Koha::Acquisition::Budget->_new_from_dbic( $budget_rs );
50 my $json = $fund->to_api;
52 Overloaded method that returns a JSON representation of the Koha::Acquisition::Fund object,
53 suitable for API output.
58 my ( $self, $args ) = @_;
60 # Preserve conflicting attribute names
61 my $budget_id = $self->budget_id;
62 my $budget_period_id = $self->budget_period_id;
64 my $json_fund = $self->SUPER::to_api($args);
65 $json_fund->{fund_id} = $budget_id;
66 $json_fund->{budget_id} = $budget_period_id;
73 This method returns the mapping for representing a Koha::Acquisition::Fund object
80 budget_id => 'fund_id',
81 budget_code => 'code',
82 budget_name => 'name',
83 budget_branchcode => 'library_id',
84 budget_amount => 'total_amount',
85 budget_encumb => 'warn_at_percentage',
86 budget_expend => 'warn_at_amount',
87 budget_notes => 'notes',
88 budget_period_id => 'budget_id',
89 timestamp => 'timestamp',
90 budget_owner_id => 'fund_owner_id',
91 budget_permission => 'fund_access',
92 sort1_authcat => 'statistic1_auth_value_category',
93 sort2_authcat => 'statistic2_auth_value_category',
94 budget_parent_id => 'parent_fund_id',
98 =head2 Internal methods