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
;
38 my $input = CGI
->new();
40 my $payment_id = $input->param('payment_id');
41 my $writeoff_individual = $input->param('writeoff_individual');
42 my $change_given = $input->param('change_given');
43 my $type = scalar $input->param('type') || 'PAYMENT';
45 my $updatecharges_permissions = ($writeoff_individual || $type eq 'writeoff') ?
'writeoff' : 'remaining_permissions';
46 my ( $template, $loggedinuser, $cookie ) = get_template_and_user
(
47 { template_name
=> 'members/paycollect.tt',
51 flagsrequired
=> { borrowers
=> 'edit_borrowers', updatecharges
=> $updatecharges_permissions },
56 # get borrower details
57 my $borrowernumber = $input->param('borrowernumber');
58 my $logged_in_user = Koha
::Patrons
->find( $loggedinuser );
59 my $patron = Koha
::Patrons
->find( $borrowernumber );
60 output_and_exit_if_error
( $input, $cookie, $template, { module
=> 'members', logged_in_user
=> $logged_in_user, current_patron
=> $patron } );
62 my $borrower = $patron->unblessed;
63 my $account = $patron->account;
64 my $category = $patron->category;
65 my $user = $input->remote_user;
67 my $library_id = C4
::Context
->userenv->{'branch'};
68 my $total_due = $account->outstanding_debits->total_outstanding;
70 my $total_paid = $input->param('paid');
71 my $total_collected = $input->param('collected');
73 my $selected_lines = $input->param('selected'); # comes from pay.pl
74 my $pay_individual = $input->param('pay_individual');
75 my $selected_accts = $input->param('selected_accts'); # comes from paycollect.pl
76 my $payment_note = uri_unescape
scalar $input->param('payment_note');
77 my $payment_type = scalar $input->param('payment_type');
81 if ( C4
::Context
->preference('UseCashRegisters') ) {
82 $registerid = $input->param('registerid');
83 my $registers = Koha
::Cash
::Registers
->search(
84 { branch
=> $library_id, archived
=> 0 },
85 { order_by
=> { '-asc' => 'name' } }
88 if ( !$registers->count ) {
89 $template->param( error_registers
=> 1 );
94 my $default_register = Koha
::Cash
::Registers
->find(
95 { branch
=> $library_id, branch_default
=> 1 } );
96 $registerid = $default_register->id if $default_register;
98 $registerid = $registers->next->id if !$registerid;
101 registerid
=> $registerid,
102 registers
=> $registers,
107 if ( $pay_individual || $writeoff_individual ) {
108 if ($pay_individual) {
109 $template->param( pay_individual
=> 1 );
110 } elsif ($writeoff_individual) {
111 $template->param( writeoff_individual
=> 1 );
113 my $debit_type_code = $input->param('debit_type_code');
114 $accountlines_id = $input->param('accountlines_id');
115 my $amount = $input->param('amount');
116 my $amountoutstanding = $input->param('amountoutstanding');
117 my $itemnumber = $input->param('itemnumber');
118 my $description = $input->param('description');
119 my $title = $input->param('title');
120 $total_due = $amountoutstanding;
122 debit_type_code
=> $debit_type_code,
123 accountlines_id
=> $accountlines_id,
125 amountoutstanding
=> $amountoutstanding,
127 itemnumber
=> $itemnumber,
128 individual_description
=> $description,
129 payment_note
=> $payment_note,
131 } elsif ($selected_lines) {
132 $total_due = $input->param('amt');
134 selected_accts
=> $selected_lines,
136 selected_accts_notes
=> scalar $input->param('notes'),
140 my @selected_accountlines;
141 if ( $selected_accts ) {
142 if ( $selected_accts =~ /^([\d,]*).*/ ) {
143 $selected_accts = $1; # ensure passing no junk
145 my @acc = split /,/, $selected_accts;
147 @selected_accountlines = Koha
::Account
::Lines
->search(
149 borrowernumber
=> $borrowernumber,
150 amountoutstanding
=> { '<>' => 0 },
151 accountlines_id
=> { 'in' => \
@acc },
153 { order_by
=> 'date' }
156 $total_due = 0; # Reset and recalculate total due
157 map { $total_due += $_->amountoutstanding } @selected_accountlines;
161 if ( $total_paid and $total_paid ne '0.00' ) {
162 $total_paid = $total_due if (abs($total_paid - $total_due) < 0.01) && C4
::Context
->preference('RoundFinesAtPayment');
163 if ( $total_paid < 0 or $total_paid > $total_due ) {
166 total_due
=> $total_due
168 } elsif ( $total_collected < $total_paid && !( $writeoff_individual || $type eq 'writeoff') ) {
171 total_paid
=> $total_paid
174 output_and_exit
( $input, $cookie, $template, 'wrong_csrf_token' )
175 unless Koha
::Token
->new->check_csrf( {
176 session_id
=> $input->cookie('CGISESSID'),
177 token
=> scalar $input->param('csrf_token'),
180 if ($pay_individual) {
181 my $line = Koha
::Account
::Lines
->find($accountlines_id);
182 $payment_id = $account->pay(
185 amount
=> $total_paid,
186 library_id
=> $library_id,
187 note
=> $payment_note,
188 interface
=> C4
::Context
->interface,
189 payment_type
=> $payment_type,
190 cash_register
=> $registerid
193 print $input->redirect(
194 "/cgi-bin/koha/members/pay.pl?borrowernumber=$borrowernumber&payment_id=$payment_id&change_given=$change_given");
196 if ($selected_accts) {
197 if ( $total_paid > $total_due ) {
200 total_due
=> $total_due
203 my $note = $input->param('selected_accts_notes');
205 $payment_id = $account->pay(
208 amount
=> $total_paid,
209 library_id
=> $library_id,
210 lines
=> \
@selected_accountlines,
212 interface
=> C4
::Context
->interface,
213 payment_type
=> $payment_type,
214 cash_register
=> $registerid
220 my $note = $input->param('selected_accts_notes');
221 $payment_id = $account->pay(
223 amount
=> $total_paid,
224 library_id
=> $library_id,
226 payment_type
=> $payment_type,
227 interface
=> C4
::Context
->interface,
228 payment_type
=> $payment_type,
229 cash_register
=> $registerid
234 print $input->redirect("/cgi-bin/koha/members/boraccount.pl?borrowernumber=$borrowernumber&payment_id=$payment_id&change_given=$change_given");
238 $total_paid = '0.00'; #TODO not right with pay_individual
241 $template->param(%$borrower);
243 if ( $input->param('error_over') ) {
244 $template->param( error_over
=> 1, total_due
=> scalar $input->param('amountoutstanding') );
248 payment_id
=> $payment_id,
251 borrowernumber
=> $borrowernumber, # some templates require global
255 csrf_token
=> Koha
::Token
->new->generate_csrf( { session_id
=> scalar $input->cookie('CGISESSID') } ),
258 output_html_with_http_headers
$input, $cookie, $template->output;