2 # Copyright 2009,2010 PTFS Inc.
3 # Copyright 2011 PTFS-Europe Ltd
5 # This file is part of Koha.
7 # Koha is free software; you can redistribute it and/or modify it
8 # under the terms of the GNU General Public License as published by
9 # the Free Software Foundation; either version 3 of the License, or
10 # (at your option) any later version.
12 # Koha is distributed in the hope that it will be useful, but
13 # WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 # GNU General Public License for more details.
17 # You should have received a copy of the GNU General Public License
18 # along with Koha; if not, see <http://www.gnu.org/licenses>.
31 use Koha
::Cash
::Registers
;
33 use Koha
::Patron
::Categories
;
34 use Koha
::AuthorisedValues
;
39 my $input = CGI
->new();
41 my $payment_id = $input->param('payment_id');
42 my $writeoff_individual = $input->param('writeoff_individual');
43 my $change_given = $input->param('change_given');
44 my $type = scalar $input->param('type') || 'PAYMENT';
46 my $updatecharges_permissions = ($writeoff_individual || $type eq 'WRITEOFF') ?
'writeoff' : 'remaining_permissions';
47 my ( $template, $loggedinuser, $cookie ) = get_template_and_user
(
48 { template_name
=> 'members/paycollect.tt',
52 flagsrequired
=> { borrowers
=> 'edit_borrowers', updatecharges
=> $updatecharges_permissions },
57 # get borrower details
58 my $borrowernumber = $input->param('borrowernumber');
59 my $logged_in_user = Koha
::Patrons
->find( $loggedinuser );
60 my $patron = Koha
::Patrons
->find( $borrowernumber );
61 output_and_exit_if_error
( $input, $cookie, $template, { module
=> 'members', logged_in_user
=> $logged_in_user, current_patron
=> $patron } );
63 my $borrower = $patron->unblessed;
64 my $account = $patron->account;
65 my $category = $patron->category;
66 my $user = $input->remote_user;
68 my $library_id = C4
::Context
->userenv->{'branch'};
69 my $total_due = $account->outstanding_debits->total_outstanding;
71 my $total_paid = $input->param('paid');
72 my $total_collected = $input->param('collected');
74 my $selected_lines = $input->param('selected'); # comes from pay.pl
75 my $pay_individual = $input->param('pay_individual');
76 my $selected_accts = $input->param('selected_accts'); # comes from paycollect.pl
77 my $payment_note = uri_unescape
scalar $input->param('payment_note');
78 my $payment_type = scalar $input->param('payment_type');
82 if ( C4
::Context
->preference('UseCashRegisters') ) {
83 $registerid = $input->param('registerid');
84 my $registers = Koha
::Cash
::Registers
->search(
85 { branch
=> $library_id, archived
=> 0 },
86 { order_by
=> { '-asc' => 'name' } }
89 if ( !$registers->count ) {
90 $template->param( error_registers
=> 1 );
95 my $default_register = Koha
::Cash
::Registers
->find(
96 { branch
=> $library_id, branch_default
=> 1 } );
97 $registerid = $default_register->id if $default_register;
99 $registerid = $registers->next->id if !$registerid;
102 registerid
=> $registerid,
103 registers
=> $registers,
108 if ( $pay_individual || $writeoff_individual ) {
109 if ($pay_individual) {
110 $template->param( pay_individual
=> 1 );
111 } elsif ($writeoff_individual) {
112 $template->param( writeoff_individual
=> 1 );
114 my $debit_type_code = $input->param('debit_type_code');
115 $accountlines_id = $input->param('accountlines_id');
116 my $amount = $input->param('amount');
117 my $amountoutstanding = $input->param('amountoutstanding');
118 my $itemnumber = $input->param('itemnumber');
119 my $description = $input->param('description');
120 my $title = $input->param('title');
121 $total_due = $amountoutstanding;
123 debit_type_code
=> $debit_type_code,
124 accountlines_id
=> $accountlines_id,
126 amountoutstanding
=> $amountoutstanding,
128 itemnumber
=> $itemnumber,
129 individual_description
=> $description,
130 payment_note
=> $payment_note,
132 } elsif ($selected_lines) {
133 $total_due = $input->param('amt');
135 selected_accts
=> $selected_lines,
137 selected_accts_notes
=> scalar $input->param('notes'),
141 my @selected_accountlines;
142 if ( $selected_accts ) {
143 if ( $selected_accts =~ /^([\d,]*).*/ ) {
144 $selected_accts = $1; # ensure passing no junk
146 my @acc = split /,/, $selected_accts;
148 my $search_params = {
149 borrowernumber
=> $borrowernumber,
150 amountoutstanding
=> { '<>' => 0 },
151 accountlines_id
=> { 'in' => \
@acc },
154 my @selected_accountlines = Koha
::Account
::Lines
->search(
156 { order_by
=> 'date' }
159 my $sum = Koha
::Account
::Lines
->search(
162 select => [ { sum
=> 'amountoutstanding' } ],
163 as
=> [ 'total_amountoutstanding'],
166 $total_due = $sum->_resultset->first->get_column('total_amountoutstanding');
169 if ( $total_paid and $total_paid ne '0.00' ) {
170 $total_paid = $total_due if (abs($total_paid - $total_due) < 0.01) && C4
::Context
->preference('RoundFinesAtPayment');
171 if ( $total_paid < 0 or $total_paid > $total_due ) {
174 total_due
=> $total_due
176 } elsif ( $total_collected < $total_paid && !( $writeoff_individual || $type eq 'WRITEOFF' ) ) {
179 total_paid
=> $total_paid
182 output_and_exit
( $input, $cookie, $template, 'wrong_csrf_token' )
183 unless Koha
::Token
->new->check_csrf( {
184 session_id
=> $input->cookie('CGISESSID'),
185 token
=> scalar $input->param('csrf_token'),
190 if ($pay_individual) {
191 my $line = Koha
::Account
::Lines
->find($accountlines_id);
192 $pay_result = $account->pay(
195 amount
=> $total_paid,
196 library_id
=> $library_id,
197 note
=> $payment_note,
198 interface
=> C4
::Context
->interface,
199 payment_type
=> $payment_type,
200 cash_register
=> $registerid
203 $payment_id = $pay_result->{payment_id
};
205 $url = "/cgi-bin/koha/members/pay.pl";
207 if ($selected_accts) {
208 if ( $total_paid > $total_due ) {
211 total_due
=> $total_due
214 my $note = $input->param('selected_accts_notes');
216 $pay_result = $account->pay(
219 amount
=> $total_paid,
220 library_id
=> $library_id,
221 lines
=> \
@selected_accountlines,
223 interface
=> C4
::Context
->interface,
224 payment_type
=> $payment_type,
225 cash_register
=> $registerid
229 $payment_id = $pay_result->{payment_id
};
232 my $note = $input->param('selected_accts_notes');
233 $pay_result = $payment_id = $account->pay(
235 amount
=> $total_paid,
236 library_id
=> $library_id,
238 payment_type
=> $payment_type,
239 interface
=> C4
::Context
->interface,
240 payment_type
=> $payment_type,
241 cash_register
=> $registerid
245 $payment_id = $pay_result->{payment_id
};
247 $url = "/cgi-bin/koha/members/boraccount.pl";
249 # It's possible renewals took place, parse any renew results
251 my @renew_result = ();
252 foreach my $ren( @
{$pay_result->{renew_result
}} ) {
253 my $str = "renew_result=$ren->{itemnumber},$ren->{success},";
254 my $app = $ren->{success
} ?
256 output_pref
({ dt
=> $ren->{due_date
}, as_due_date
=> 1 })
258 push @renew_result, "${str}${app}";
260 my $append = scalar @renew_result ?
'&' . join('&', @renew_result) : '';
262 $url .= "?borrowernumber=$borrowernumber&payment_id=$payment_id&change_given=${change_given}${append}";
264 print $input->redirect($url);
267 $total_paid = '0.00'; #TODO not right with pay_individual
270 $template->param(%$borrower);
272 if ( $input->param('error_over') ) {
273 $template->param( error_over
=> 1, total_due
=> scalar $input->param('amountoutstanding') );
277 payment_id
=> $payment_id,
280 borrowernumber
=> $borrowernumber, # some templates require global
284 csrf_token
=> Koha
::Token
->new->generate_csrf( { session_id
=> scalar $input->cookie('CGISESSID') } ),
287 output_html_with_http_headers
$input, $cookie, $template->output;