3 #written 11/1/2000 by chris@katipo.oc.nz
4 #script to display borrowers account details
7 # Copyright 2000-2002 Katipo Communications
8 # Copyright 2010 BibLibre
10 # This file is part of Koha.
12 # Koha is free software; you can redistribute it and/or modify it
13 # under the terms of the GNU General Public License as published by
14 # the Free Software Foundation; either version 3 of the License, or
15 # (at your option) any later version.
17 # Koha is distributed in the hope that it will be useful, but
18 # WITHOUT ANY WARRANTY; without even the implied warranty of
19 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
20 # GNU General Public License for more details.
22 # You should have received a copy of the GNU General Public License
23 # along with Koha; if not, see <http://www.gnu.org/licenses>.
36 use C4
::Members
::Attributes
qw(GetBorrowerAttributes);
37 use Koha
::Patron
::Images
;
39 use Koha
::Patron
::Categories
;
42 my $flagsrequired = { borrowers
=> 1, updatecharges
=> 1 };
44 my $borrowernumber=$input->param('borrowernumber');
47 my $data=GetMember
('borrowernumber' => $borrowernumber);
48 my $add=$input->param('add');
51 if ( checkauth
( $input, 0, $flagsrequired, 'intranet' ) ) {
52 my $barcode = $input->param('barcode');
55 $itemnum = GetItemnumberFromBarcode
($barcode);
57 my $desc = $input->param('desc');
58 my $note = $input->param('note');
59 my $amount = $input->param('amount') || 0;
61 my $type = $input->param('type');
62 manualinvoice
( $borrowernumber, $itemnum, $desc, $type, $amount, $note );
63 print $input->redirect("/cgi-bin/koha/members/boraccount.pl?borrowernumber=$borrowernumber");
66 my ($template, $loggedinuser, $cookie) = get_template_and_user
(
68 template_name
=> "members/mancredit.tt",
72 flagsrequired
=> { borrowers
=> 1,
73 updatecharges
=> 'remaining_permissions' },
78 if ( $data->{'category_type'} eq 'C') {
79 my $patron_categories = Koha
::Patron
::Categories
->search_limited({ category_type
=> 'A' }, {order_by
=> ['categorycode']});
80 $template->param( 'CATCODE_MULTI' => 1) if $patron_categories->count > 1;
81 $template->param( 'catcode' => $patron_categories->next ) if $patron_categories->count == 1;
84 $template->param( adultborrower
=> 1 ) if ( $data->{category_type
} eq 'A' );
85 my $patron_image = Koha
::Patron
::Images
->find($data->{borrowernumber
});
86 $template->param( picture
=> 1 ) if $patron_image;
88 if (C4
::Context
->preference('ExtendedPatronAttributes')) {
89 my $attributes = GetBorrowerAttributes
($borrowernumber);
91 ExtendedPatronAttributes
=> 1,
92 extendedattributes
=> $attributes
96 $template->param(%$data);
100 borrowernumber
=> $borrowernumber,
101 categoryname
=> $data->{'description'},
102 is_child
=> ($data->{'category_type'} eq 'C'),
103 activeBorrowerRelationship
=> (C4
::Context
->preference('borrowerRelationship') ne ''),
104 RoutingSerials
=> C4
::Context
->preference('RoutingSerials'),
106 output_html_with_http_headers
$input, $cookie, $template->output;