Bug 10020: Remove code related to ethnicity
[koha.git] / members / paycollect.pl
1 #!/usr/bin/perl
2 # Copyright 2009,2010 PTFS Inc.
3 # Copyright 2011 PTFS-Europe Ltd
4 #
5 # This file is part of Koha.
6 #
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.
11 #
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.
16 #
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>.
19
20 use strict;
21 use warnings;
22 use URI::Escape;
23 use C4::Context;
24 use C4::Auth;
25 use C4::Output;
26 use CGI qw ( -utf8 );
27 use C4::Members;
28 use C4::Members::Attributes qw(GetBorrowerAttributes);
29 use C4::Accounts;
30 use C4::Koha;
31 use C4::Branch;
32
33 my $input = CGI->new();
34
35 my $updatecharges_permissions = $input->param('writeoff_individual') ? 'writeoff' : 'remaining_permissions';
36 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
37     {   template_name   => 'members/paycollect.tt',
38         query           => $input,
39         type            => 'intranet',
40         authnotrequired => 0,
41         flagsrequired   => { borrowers => 1, updatecharges => $updatecharges_permissions },
42         debug           => 1,
43     }
44 );
45
46 # get borrower details
47 my $borrowernumber = $input->param('borrowernumber');
48 my $borrower       = GetMember( borrowernumber => $borrowernumber );
49 my $user           = $input->remote_user;
50
51 # get account details
52 my $branch = GetBranch( $input, GetBranches() );
53
54 my ( $total_due, $accts, $numaccts ) = GetMemberAccountRecords($borrowernumber);
55 my $total_paid = $input->param('paid');
56
57 my $individual   = $input->param('pay_individual');
58 my $writeoff     = $input->param('writeoff_individual');
59 my $select_lines = $input->param('selected');
60 my $select       = $input->param('selected_accts');
61 my $payment_note = uri_unescape $input->param('payment_note');
62 my $accountno;
63 my $accountlines_id;
64 if ( $individual || $writeoff ) {
65     if ($individual) {
66         $template->param( pay_individual => 1 );
67     } elsif ($writeoff) {
68         $template->param( writeoff_individual => 1 );
69     }
70     my $accounttype       = $input->param('accounttype');
71     $accountlines_id       = $input->param('accountlines_id');
72     my $amount            = $input->param('amount');
73     my $amountoutstanding = $input->param('amountoutstanding');
74     $accountno = $input->param('accountno');
75     my $itemnumber  = $input->param('itemnumber');
76     my $description  = $input->param('description');
77     my $title        = $input->param('title');
78     my $notify_id    = $input->param('notify_id');
79     my $notify_level = $input->param('notify_level');
80     $total_due = $amountoutstanding;
81     $template->param(
82         accounttype       => $accounttype,
83         accountlines_id    => $accountlines_id,
84         accountno         => $accountno,
85         amount            => $amount,
86         amountoutstanding => $amountoutstanding,
87         title             => $title,
88         itemnumber        => $itemnumber,
89         description       => $description,
90         notify_id         => $notify_id,
91         notify_level      => $notify_level,
92         payment_note    => $payment_note,
93     );
94 } elsif ($select_lines) {
95     $total_due = $input->param('amt');
96     $template->param(
97         selected_accts => $select_lines,
98         amt            => $total_due,
99         selected_accts_notes => $input->param('notes'),
100     );
101 }
102
103 if ( $total_paid and $total_paid ne '0.00' ) {
104     if ( $total_paid < 0 or $total_paid > $total_due ) {
105         $template->param(
106             error_over => 1,
107             total_due => $total_due
108         );
109     } else {
110         if ($individual) {
111             if ( $total_paid == $total_due ) {
112                 makepayment( $accountlines_id, $borrowernumber, $accountno, $total_paid, $user,
113                     $branch, $payment_note );
114             } else {
115                 makepartialpayment( $accountlines_id, $borrowernumber, $accountno, $total_paid,
116                     $user, $branch, $payment_note );
117             }
118             print $input->redirect(
119                 "/cgi-bin/koha/members/pay.pl?borrowernumber=$borrowernumber");
120         } else {
121             if ($select) {
122                 if ( $select =~ /^([\d,]*).*/ ) {
123                     $select = $1;    # ensure passing no junk
124                 }
125                 my @acc = split /,/, $select;
126                 my $note = $input->param('selected_accts_notes');
127                 recordpayment_selectaccts( $borrowernumber, $total_paid, \@acc, $note );
128             } else {
129                 my $note = $input->param('selected_accts_notes');
130                 recordpayment( $borrowernumber, $total_paid, '', $note );
131             }
132
133 # recordpayment does not return success or failure so lets redisplay the boraccount
134
135             print $input->redirect(
136 "/cgi-bin/koha/members/boraccount.pl?borrowernumber=$borrowernumber"
137             );
138         }
139     }
140 } else {
141     $total_paid = '0.00';    #TODO not right with pay_individual
142 }
143
144 borrower_add_additional_fields($borrower);
145
146 $template->param(%$borrower);
147
148 $template->param(
149     borrowernumber => $borrowernumber,    # some templates require global
150     borrower      => $borrower,
151     total         => $total_due,
152     activeBorrowerRelationship => (C4::Context->preference('borrowerRelationship') ne ''),
153     RoutingSerials => C4::Context->preference('RoutingSerials'),
154     ExtendedPatronAttributes => C4::Context->preference('ExtendedPatronAttributes'),
155 );
156
157 output_html_with_http_headers $input, $cookie, $template->output;
158
159 sub borrower_add_additional_fields {
160     my $b_ref = shift;
161
162 # some borrower info is not returned in the standard call despite being assumed
163 # in a number of templates. It should not be the business of this script but in lieu of
164 # a revised api here it is ...
165     if ( $b_ref->{category_type} eq 'C' ) {
166         my ( $catcodes, $labels ) =
167           GetborCatFromCatType( 'A', 'WHERE category_type = ?' );
168         if ( @{$catcodes} ) {
169             if ( @{$catcodes} > 1 ) {
170                 $b_ref->{CATCODE_MULTI} = 1;
171             } elsif ( @{$catcodes} == 1 ) {
172                 $b_ref->{catcode} = $catcodes->[0];
173             }
174         }
175     } elsif ( $b_ref->{category_type} eq 'A' ) {
176         $b_ref->{adultborrower} = 1;
177     }
178     my ( $picture, $dberror ) = GetPatronImage( $b_ref->{borrowernumber} );
179     if ($picture) {
180         $b_ref->{has_picture} = 1;
181     }
182
183     if (C4::Context->preference('ExtendedPatronAttributes')) {
184         $b_ref->{extendedattributes} = GetBorrowerAttributes($borrowernumber);
185     }
186
187     my $roadtype = C4::Koha::GetAuthorisedValueByCode( 'ROADTYPE', $borrower->{streettype} );
188     $b_ref->{roadtype} = $roadtype;
189
190     $b_ref->{branchname} = GetBranchName( $b_ref->{branchcode} );
191     return;
192 }