3 # Copyright 2000-2002 Katipo Communications
4 # Copyright 2010 BibLibre
5 # Copyright 2014 ByWater Solutions
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>.
25 script to do a borrower enquiry/bring up patron details etc
26 Displays all the details about a patron
35 use C4::Members::AttributeTypes;
36 use C4::Form::MessagingPreferences;
37 use List::MoreUtils qw/uniq/;
38 use C4::Members::Attributes qw(GetBorrowerAttributes);
39 use Koha::Patron::Debarments qw(GetDebarments);
40 use Koha::Patron::Messages;
42 use Koha::CsvProfiles;
50 $debug = $ENV{DEBUG} || 0;
54 $debug or $debug = $input->param('debug') || 0;
56 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
58 template_name => "members/moremember.tt",
62 flagsrequired => { borrowers => 'edit_borrowers' },
66 my $borrowernumber = $input->param('borrowernumber');
67 my $error = $input->param('error');
68 $template->param( error => $error ) if ( $error );
70 my $patron = Koha::Patrons->find( $borrowernumber );
71 my $logged_in_user = Koha::Patrons->find( $loggedinuser ) or die "Not logged in";
72 output_and_exit_if_error( $input, $cookie, $template, { module => 'members', logged_in_user => $logged_in_user, current_patron => $patron } );
74 my $category_type = $patron->category->category_type;
76 for (qw(gonenoaddress lost borrowernotes is_debarred)) {
77 $patron->$_ and $template->param(flagged => 1) and last;
80 if ( $patron->is_debarred ) {
82 debarments => scalar GetDebarments({ borrowernumber => $borrowernumber }),
84 if ( $patron->debarred ne "9999-12-31" ) {
85 $template->param( 'userdebarreddate' => $patron->debarred );
90 if ( my $guarantor = $patron->guarantor ) {
91 $template->param( guarantor => $guarantor );
92 push @relatives, $guarantor->borrowernumber;
93 push @relatives, $_->borrowernumber for $patron->siblings;
94 } elsif ( $patron->contactname || $patron->contactfirstname ) {
97 firstname => $patron->contactfirstname,
98 surname => $patron->contactname,
102 my @guarantees = $patron->guarantees;
103 $template->param( guarantees => \@guarantees );
104 push @relatives, $_->borrowernumber for @guarantees;
107 my $relatives_issues_count =
108 Koha::Checkouts->count({ borrowernumber => \@relatives });
110 # Generate CSRF token for upload and delete image buttons
112 csrf_token => Koha::Token->new->generate_csrf({ session_id => $input->cookie('CGISESSID'),}),
115 if (C4::Context->preference('ExtendedPatronAttributes')) {
116 my $attributes = C4::Members::Attributes::GetBorrowerAttributes($borrowernumber);
117 my @classes = uniq( map {$_->{class}} @$attributes );
118 @classes = sort @classes;
121 for my $class (@classes) {
123 for my $attr (@$attributes) {
124 push @items, $attr if $attr->{class} eq $class
126 my $av = Koha::AuthorisedValues->search({ category => 'PA_CLASS', authorised_value => $class });
127 my $lib = $av->count ? $av->next->lib : $class;
129 push @attributes_loop, {
137 attributes_loop => \@attributes_loop
140 my @types = C4::Members::AttributeTypes::GetAttributeTypes();
141 if (scalar(@types) == 0) {
142 $template->param(no_patron_attribute_types => 1);
146 if (C4::Context->preference('EnhancedMessagingPreferences')) {
147 C4::Form::MessagingPreferences::set_form_values({ borrowernumber => $borrowernumber }, $template);
148 $template->param(messaging_form_inactive => 1);
151 if ( C4::Context->preference("ExportCircHistory") ) {
152 $template->param(csv_profiles => [ Koha::CsvProfiles->search({ type => 'marc' }) ]);
155 my $patron_messages = Koha::Patron::Messages->search(
157 'me.borrowernumber' => $patron->borrowernumber,
161 '+select' => ['manager.surname', 'manager.firstname' ],
162 '+as' => ['manager_surname', 'manager_firstname'],
166 if( $patron_messages->count > 0 ){
167 $template->param( patron_messages => $patron_messages );
170 # Display the language description instead of the code
171 # Note that this is certainly wrong
172 my ( $subtag, $region ) = split '-', $patron->lang;
173 my $translated_language = C4::Languages::language_get_description( $subtag, $subtag, 'language' );
175 # if the expiry date is before today ie they have expired
176 if ( $patron->is_expired || $patron->is_going_to_expire ) {
184 issuecount => $patron->checkouts->count,
185 holds_count => $patron->holds->count,
186 fines => $patron->account->balance,
187 translated_language => $translated_language,
189 was_renewed => scalar $input->param('was_renewed') ? 1 : 0,
190 $category_type => 1, # [% IF ( I ) %] = institutional/organisation
191 housebound_role => scalar $patron->housebound_role,
192 relatives_issues_count => $relatives_issues_count,
193 relatives_borrowernumbers => \@relatives,
196 output_html_with_http_headers $input, $cookie, $template->output;