3 # Copyright 2000-2002 Katipo Communications
4 # Copyright 2010 BibLibre
5 # Copyright 2010,2011 PTFS-Europe Ltd
7 # This file is part of Koha.
9 # Koha is free software; you can redistribute it and/or modify it
10 # under the terms of the GNU General Public License as published by
11 # the Free Software Foundation; either version 3 of the License, or
12 # (at your option) any later version.
14 # Koha is distributed in the hope that it will be useful, but
15 # WITHOUT ANY WARRANTY; without even the implied warranty of
16 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 # GNU General Public License for more details.
19 # You should have received a copy of the GNU General Public License
20 # along with Koha; if not, see <http://www.gnu.org/licenses>.
24 written 11/1/2000 by chris@katipo.oc.nz
25 part of the koha library system, script to facilitate paying off fines
43 use C4
::Members
::Attributes
qw(GetBorrowerAttributes);
45 our $input = CGI
->new;
47 my $updatecharges_permissions = $input->param('woall') ?
'writeoff' : 'remaining_permissions';
48 our ( $template, $loggedinuser, $cookie ) = get_template_and_user
(
49 { template_name
=> 'members/pay.tt',
53 flagsrequired
=> { borrowers
=> 1, updatecharges
=> $updatecharges_permissions },
58 my @names = $input->param;
60 our $borrowernumber = $input->param('borrowernumber');
61 if ( !$borrowernumber ) {
62 $borrowernumber = $input->param('borrowernumber0');
65 # get borrower details
66 our $borrower = GetMember
( borrowernumber
=> $borrowernumber );
67 our $user = $input->remote_user;
70 my $branches = GetBranches
();
71 our $branch = GetBranch
( $input, $branches );
73 my $writeoff_item = $input->param('confirm_writeoff');
74 my $paycollect = $input->param('paycollect');
76 print $input->redirect(
77 "/cgi-bin/koha/members/paycollect.pl?borrowernumber=$borrowernumber");
79 my $payselected = $input->param('payselected');
84 my $writeoff_all = $input->param('woall'); # writeoff all fines
87 } elsif ($writeoff_item) {
88 my $accountlines_id = $input->param('accountlines_id');
89 my $itemno = $input->param('itemnumber');
90 my $account_type = $input->param('accounttype');
91 my $amount = $input->param('amountoutstanding');
92 my $payment_note = $input->param("payment_note");
93 WriteOffFee
( $borrowernumber, $accountlines_id, $itemno, $account_type, $amount, $branch, $payment_note );
97 if (/^pay_indiv_(\d+)$/) {
99 redirect_to_paycollect
( 'pay_individual', $line_no );
100 } elsif (/^wo_indiv_(\d+)$/) {
102 redirect_to_paycollect
( 'writeoff_individual', $line_no );
108 activeBorrowerRelationship
=> (C4
::Context
->preference('borrowerRelationship') ne ''),
109 RoutingSerials
=> C4
::Context
->preference('RoutingSerials'),
112 add_accounts_to_template
();
114 output_html_with_http_headers
$input, $cookie, $template->output;
116 sub add_accounts_to_template
{
118 my ( $total, undef, undef ) = GetMemberAccountRecords
($borrowernumber);
120 my @notify = NumberNotifyId
($borrowernumber);
122 my $notify_groups = [];
123 for my $notify_id (@notify) {
124 my ( $acct_total, $accountlines, undef ) =
125 GetBorNotifyAcctRecord
( $borrowernumber, $notify_id );
126 if ( @
{$accountlines} ) {
127 my $totalnotify = AmountNotify
( $notify_id, $borrowernumber );
129 { accountlines
=> $accountlines,
130 notify
=> $notify_id,
131 total
=> $totalnotify,
135 borrower_add_additional_fields
($borrower);
137 $template->param(%$borrower);
139 my ($picture, $dberror) = GetPatronImage
($borrower->{'borrowernumber'});
140 $template->param( picture
=> 1 ) if $picture;
142 accounts
=> $accounts,
143 borrower
=> $borrower,
144 categoryname
=> $borrower->{'description'},
151 sub get_for_redirect
{
152 my ( $name, $name_in, $money ) = @_;
153 my $s = q{&} . $name . q{=};
154 my $value = $input->param($name_in);
155 if ( !defined $value ) {
156 $value = ( $money == 1 ) ?
0 : q{};
159 $s .= sprintf '%.2f', $value;
166 sub redirect_to_paycollect
{
167 my ( $action, $line_no ) = @_;
169 "/cgi-bin/koha/members/paycollect.pl?borrowernumber=$borrowernumber";
171 $redirect .= "$action=1";
172 $redirect .= get_for_redirect
( 'accounttype', "accounttype$line_no", 0 );
173 $redirect .= get_for_redirect
( 'amount', "amount$line_no", 1 );
175 get_for_redirect
( 'amountoutstanding', "amountoutstanding$line_no", 1 );
176 $redirect .= get_for_redirect
( 'title', "title$line_no", 0 );
177 $redirect .= get_for_redirect
( 'itemnumber', "itemnumber$line_no", 0 );
178 $redirect .= get_for_redirect
( 'notify_id', "notify_id$line_no", 0 );
179 $redirect .= get_for_redirect
( 'notify_level', "notify_level$line_no", 0 );
180 $redirect .= get_for_redirect
( 'accountlines_id', "accountlines_id$line_no", 0 );
181 $redirect .= q{&} . 'payment_note' . q{=} . uri_escape_utf8
( $input->param("payment_note_$line_no") );
182 $redirect .= '&remote_user=';
184 return print $input->redirect($redirect);
189 my @wo_lines = grep { /^accountlines_id\d+$/ } @params;
193 my $accounttype = $input->param("accounttype$value");
195 # my $borrowernum = $input->param("borrowernumber$value");
196 my $itemno = $input->param("itemnumber$value");
197 my $amount = $input->param("amountoutstanding$value");
198 my $accountlines_id = $input->param("accountlines_id$value");
199 my $payment_note = $input->param("payment_note_$value");
200 WriteOffFee
( $borrowernumber, $accountlines_id, $itemno, $accounttype, $amount, $branch, $payment_note );
204 $borrowernumber = $input->param('borrowernumber');
205 print $input->redirect(
206 "/cgi-bin/koha/members/boraccount.pl?borrowernumber=$borrowernumber");
210 sub borrower_add_additional_fields
{
213 # some borrower info is not returned in the standard call despite being assumed
214 # in a number of templates. It should not be the business of this script but in lieu of
215 # a revised api here it is ...
216 if ( $b_ref->{category_type
} eq 'C' ) {
217 my ( $catcodes, $labels ) =
218 GetborCatFromCatType
( 'A', 'WHERE category_type = ?' );
219 if ( @
{$catcodes} ) {
220 if ( @
{$catcodes} > 1 ) {
221 $b_ref->{CATCODE_MULTI
} = 1;
222 } elsif ( @
{$catcodes} == 1 ) {
223 $b_ref->{catcode
} = $catcodes->[0];
226 } elsif ( $b_ref->{category_type
} eq 'A' ) {
227 $b_ref->{adultborrower
} = 1;
230 my ( $picture, $dberror ) = GetPatronImage
( $b_ref->{borrowernumber
} );
232 $b_ref->{has_picture
} = 1;
235 if (C4
::Context
->preference('ExtendedPatronAttributes')) {
236 $b_ref->{extendedattributes
} = GetBorrowerAttributes
($borrowernumber);
238 ExtendedPatronAttributes
=> 1,
242 $b_ref->{branchname
} = GetBranchName
( $b_ref->{branchcode
} );
251 if (/^incl_par_(\d+)$/) {
253 push @lines_to_pay, $input->param("accountlines_id$index");
254 $amt += $input->param("amountoutstanding$index");
257 $amt = '&amt=' . $amt;
258 my $sel = '&selected=' . join ',', @lines_to_pay;
259 my $notes = '¬es=' . join("%0A", map { $input->param("payment_note_$_") } @lines_to_pay );
261 "/cgi-bin/koha/members/paycollect.pl?borrowernumber=$borrowernumber"
266 print $input->redirect($redirect);