1 package Koha::Account::Lines;
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.
23 use Koha::Account::Line;
25 use base qw(Koha::Objects);
29 Koha::Account::Lines - Koha Account Line Object set class
35 =head3 total_outstanding
37 my $lines = Koha::Account::Lines->search({ ... });
38 my $total = $lines->total_outstanding;
40 Returns the sum of the outstanding amounts of the resultset. If the resultset is
45 sub total_outstanding {
48 my $me = $self->_resultset()->current_source_alias . ".";
49 my $lines = $self->search(
52 select => [ { sum => $me.'amountoutstanding' } ],
53 as => ['total_amountoutstanding'],
58 ? $lines->next->get_column('total_amountoutstanding') + 0
64 my $lines = Koha::Account::Lines->search({ ... });
65 my $total = $lines->total;
67 Returns the sum of the amounts of the resultset. If the resultset is
73 my ( $self, $conditions ) = @_;
76 my $me = $self->_resultset()->current_source_alias . ".";
77 my $lines = $self->search(
80 select => [ { sum => $me.'amount' } ],
84 return $lines->count ? $lines->next->get_column('total') + 0 : 0;
89 my $lines = Koha::Account::Lines->search({ ... });
90 my $credits_total = $lines->credits_total;
92 Returns the sum of the amounts of the resultset. If the resultset is
98 my ( $self, $conditions ) = @_;
100 my $me = $self->_resultset()->current_source_alias . ".";
101 my $local_conditions = { $me.'amount' => { '<' => 0 } };
103 my $merged_conditions = { %{$conditions}, %{$local_conditions} };
105 my $lines = $self->search(
108 select => [ { sum => $me.'amount' } ],
112 return $lines->count ? $lines->next->get_column('total') + 0 : 0;
117 my $lines = Koha::Account::Lines->search({ ... });
118 my $debits_total = $lines->debits_total;
120 Returns the sum of the amounts of the resultset. If the resultset is
126 my ( $self, $conditions ) = @_;
128 my $me = $self->_resultset()->current_source_alias . ".";
129 my $local_conditions = { $me.'amount' => { '>' => 0 } };
131 my $merged_conditions = { %{$conditions}, %{$local_conditions} };
133 my $lines = $self->search(
136 select => [ { sum => $me.'amount' } ],
140 return $lines->count ? $lines->next->get_column('total') + 0 : 0;
143 =head2 Internal methods
150 return 'Accountline';
154 return 'Koha::Account::Line';