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 borrower details etc
26 Displays all the details about a borrower
27 written 20/12/99 by chris@katipo.co.nz
28 last modified 21/1/2000 by chris@katipo.co.nz
29 modified 31/1/2001 by chris@katipo.co.nz
30 to not allow items on request to be renewed
32 needs html removed and to use the C4::Output more, but its tricky
37 #use warnings; FIXME - Bug 2505
43 use C4
::Members
::Attributes
;
44 use C4
::Members
::AttributeTypes
;
51 use C4
::Branch
; # GetBranchName
52 use C4
::Form
::MessagingPreferences
;
53 use List
::MoreUtils qw
/uniq/;
54 use C4
::Members
::Attributes
qw(GetBorrowerAttributes);
55 use Koha
::Borrower
::Debarments
qw(GetDebarments IsDebarred);
57 if ( C4
::Context
->preference('NorwegianPatronDBEnable') && C4
::Context
->preference('NorwegianPatronDBEnable') == 1 ) {
58 load Koha
::NorwegianPatronDB
, qw( NLGetSyncDataFromBorrowernumber );
69 $debug = $ENV{DEBUG} || 0;
72 my $dbh = C4::Context->dbh;
75 $debug or $debug = $input->param('debug') || 0;
76 my $print = $input->param('print');
82 if (defined $print and $print eq "page") {
83 $template_name = "members/moremember-print.tt";
84 # circ staff who process checkouts but can't edit
85 # patrons still need to be able to access print view
86 $flagsrequired = { circulate => "circulate_remaining_permissions" };
87 } elsif (defined $print and $print eq "slip") {
88 $template_name = "members/moremember-receipt.tt";
89 # circ staff who process checkouts but can't edit
90 # patrons still need to be able to print receipts
91 $flagsrequired = { circulate => "circulate_remaining_permissions" };
92 } elsif (defined $print and $print eq "qslip") {
93 $template_name = "members/moremember-receipt.tt";
95 $flagsrequired = { circulate => "circulate_remaining_permissions" };
96 } elsif (defined $print and $print eq "brief") {
97 $template_name = "members/moremember-brief.tt";
98 $flagsrequired = { borrowers => 1 };
100 $template_name = "members/moremember.tt";
101 $flagsrequired = { borrowers => 1 };
104 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
106 template_name => $template_name,
109 authnotrequired => 0,
110 flagsrequired => $flagsrequired,
114 my $borrowernumber = $input->param('borrowernumber');
115 my $error = $input->param('error');
116 $template->param( error => $error ) if ( $error );
118 my ( $od, $issue, $fines ) = GetMemberIssuesAndFines($borrowernumber);
119 $template->param( issuecount => $issue );
121 my $data = GetMember( 'borrowernumber' => $borrowernumber );
123 if ( not defined $data ) {
124 $template->param (unknowuser => 1);
125 output_html_with_http_headers $input, $cookie, $template->output;
129 my $category_type = $data->{'category_type'};
131 $debug and printf STDERR "dates (enrolled,expiry,birthdate) raw: (%s, %s, %s)\n", map {$data->{$_}} qw(dateenrolled dateexpiry dateofbirth);
132 foreach (qw(dateenrolled dateexpiry dateofbirth)) {
133 my $userdate = $data->{$_};
135 $debug and warn sprintf "Empty \$data{%12s}", $_;
139 $template->param( $_ => dt_from_string
( $userdate ) );
141 $data->{'IS_ADULT'} = ( $data->{'categorycode'} ne 'I' );
143 for (qw(gonenoaddress lost borrowernotes)) {
144 $data->{$_} and $template->param(flagged
=> 1) and last;
147 if ( IsDebarred
($borrowernumber) ) {
148 $template->param( 'userdebarred' => 1, 'flagged' => 1 );
149 my $debar = $data->{'debarred'};
150 if ( $debar ne "9999-12-31" ) {
151 $template->param( 'userdebarreddate' => C4
::Dates
::format_date
($debar) );
152 $template->param( 'debarredcomment' => $data->{debarredcomment
} );
156 $data->{'ethnicity'} = fixEthnicity
( $data->{'ethnicity'} );
157 $data->{ "sex_".$data->{'sex'}."_p" } = 1 if defined $data->{sex
};
160 if ( $category_type eq 'C') {
161 my ( $catcodes, $labels ) = GetborCatFromCatType
( 'A', 'WHERE category_type = ?' );
162 my $cnt = scalar(@
$catcodes);
164 $template->param( 'CATCODE_MULTI' => 1) if $cnt > 1;
165 $template->param( 'catcode' => $catcodes->[0]) if $cnt == 1;
169 if ( $data->{'ethnicity'} || $data->{'ethnotes'} ) {
170 $template->param( printethnicityline
=> 1 );
172 my ( $count, $guarantees ) = GetGuarantees
( $data->{'borrowernumber'} );
174 $template->param( isguarantee
=> 1 );
177 # It looks like the $i is only being returned to handle walking through
178 # the array, which is probably better done as a foreach loop.
181 for ( my $i = 0 ; $i < $count ; $i++ ) {
184 borrowernumber
=> $guarantees->[$i]->{'borrowernumber'},
185 cardnumber
=> $guarantees->[$i]->{'cardnumber'},
186 name
=> $guarantees->[$i]->{'firstname'} . " "
187 . $guarantees->[$i]->{'surname'}
191 $template->param( guaranteeloop
=> \
@guaranteedata );
194 if ($data->{'guarantorid'}){
195 my ($guarantor) = GetMember
( 'borrowernumber' =>$data->{'guarantorid'});
196 $template->param(guarantor
=> 1);
197 foreach (qw(borrowernumber cardnumber firstname surname)) {
198 $template->param("guarantor$_" => $guarantor->{$_});
201 if ($category_type eq 'C'){
202 $template->param('C' => 1);
206 $template->param( adultborrower
=> 1 ) if ( $category_type eq 'A' || $category_type eq 'I' );
209 $bor{'borrowernumber'} = $borrowernumber;
211 # Converts the branchcode to the branch name
213 if ( C4
::Context
->preference("IndependentBranches") ) {
214 my $userenv = C4
::Context
->userenv;
215 if ( C4
::Context
->IsSuperLibrarian() ) {
219 $samebranch = ( $data->{'branchcode'} eq $userenv->{branch
} );
225 my $branchdetail = GetBranchDetail
( $data->{'branchcode'});
226 @
{$data}{keys %$branchdetail} = values %$branchdetail; # merge in all branch columns
228 my ( $total, $accts, $numaccts) = GetMemberAccountRecords
( $borrowernumber );
229 my $lib1 = &GetSortDetails
( "Bsort1", $data->{'sort1'} );
230 my $lib2 = &GetSortDetails
( "Bsort2", $data->{'sort2'} );
231 $template->param( lib1
=> $lib1 ) if ($lib1);
232 $template->param( lib2
=> $lib2 ) if ($lib2);
234 # If printing a page, send the account informations to the template
235 if ($print eq "page") {
236 foreach my $accountline (@
$accts) {
237 $accountline->{amount
} = sprintf '%.2f', $accountline->{amount
};
238 $accountline->{amountoutstanding
} = sprintf '%.2f', $accountline->{amountoutstanding
};
240 if ($accountline->{accounttype
} ne 'F' && $accountline->{accounttype
} ne 'FU'){
241 $accountline->{printtitle
} = 1;
244 $template->param( accounts
=> $accts );
247 # Show OPAC privacy preference is system preference is set
248 if ( C4
::Context
->preference('OPACPrivacy') ) {
249 $template->param( OPACPrivacy
=> 1);
250 $template->param( "privacy".$data->{'privacy'} => 1);
253 my @relatives = GetMemberRelatives
($borrowernumber);
254 my $relatives_issues_count =
255 Koha
::Database
->new()->schema()->resultset('Issue')
256 ->count( { borrowernumber
=> \
@relatives } );
258 my $roadtype = C4
::Koha
::GetAuthorisedValueByCode
( 'ROADTYPE', $data->{streettype
} );
259 my $today = DateTime
->now( time_zone
=> C4
::Context
->tz);
260 $today->truncate(to
=> 'day');
261 my @borrowers_with_issues;
262 my $overdues_exist = 0;
265 ### ###############################################################################
267 # show all reserves of this borrower, and the position of the reservation ....
268 if ($borrowernumber) {
270 holds_count
=> Koha
::Database
->new()->schema()->resultset('Reserve')
271 ->count( { borrowernumber
=> $borrowernumber } ) );
274 # current alert subscriptions
275 my $alerts = getalert
($borrowernumber);
277 $_->{ $_->{type
} } = 1;
278 $_->{relatedto
} = findrelatedto
( $_->{type
}, $_->{externalid
} );
282 my $userenv = C4
::Context
->userenv;
283 if ( C4
::Context
->IsSuperLibrarian() ) {
286 elsif ( C4
::Context
->preference("IndependentBranches") ) {
287 $candeleteuser = ( $data->{'branchcode'} eq $userenv->{branch
} );
290 if ( C4
::Auth
::getuserflags
( $userenv->{flags
}, $userenv->{number
} )->{borrowers
} ) {
298 # Add sync data to the user data
299 if ( C4
::Context
->preference('NorwegianPatronDBEnable') && C4
::Context
->preference('NorwegianPatronDBEnable') == 1 ) {
300 my $sync = NLGetSyncDataFromBorrowernumber
( $borrowernumber );
302 $data->{'sync'} = $sync->sync;
303 $data->{'syncstatus'} = $sync->syncstatus;
304 $data->{'lastsync'} = $sync->lastsync;
308 # check to see if patron's image exists in the database
309 # basically this gives us a template var to condition the display of
310 # patronimage related interface on
311 my ($picture, $dberror) = GetPatronImage
($data->{'borrowernumber'});
312 $template->param( picture
=> 1 ) if $picture;
314 my $branch=C4
::Context
->userenv->{'branch'};
316 $template->param(%$data);
318 if (C4
::Context
->preference('ExtendedPatronAttributes')) {
319 my $attributes = C4
::Members
::Attributes
::GetBorrowerAttributes
($borrowernumber);
320 my @classes = uniq
( map {$_->{class}} @
$attributes );
321 @classes = sort @classes;
324 for my $class (@classes) {
326 for my $attr (@
$attributes) {
327 push @items, $attr if $attr->{class} eq $class
329 my $lib = GetAuthorisedValueByCode
( 'PA_CLASS', $class ) || $class;
330 push @attributes_loop, {
338 ExtendedPatronAttributes
=> 1,
339 attributes_loop
=> \
@attributes_loop
342 my @types = C4
::Members
::AttributeTypes
::GetAttributeTypes
();
343 if (scalar(@types) == 0) {
344 $template->param(no_patron_attribute_types
=> 1);
348 if (C4
::Context
->preference('EnhancedMessagingPreferences')) {
349 C4
::Form
::MessagingPreferences
::set_form_values
({ borrowernumber
=> $borrowernumber }, $template);
350 $template->param(messaging_form_inactive
=> 1);
351 $template->param(SMSSendDriver
=> C4
::Context
->preference("SMSSendDriver"));
352 $template->param(SMSnumber
=> defined $data->{'smsalertnumber'} ?
$data->{'smsalertnumber'} : $data->{'mobile'});
353 $template->param(TalkingTechItivaPhone
=> C4
::Context
->preference("TalkingTechItivaPhoneNotification"));
356 # Computes full borrower address
357 my $address = $data->{'streetnumber'} . " $roadtype " . $data->{'address'};
359 # in template <TMPL_IF name="I"> => instutitional (A for Adult, C for children)
360 $template->param( $data->{'categorycode'} => 1 );
363 AllowRenewalLimitOverride
=> C4
::Context
->preference("AllowRenewalLimitOverride"),
364 CANDELETEUSER
=> $candeleteuser,
365 roadtype
=> $roadtype,
366 borrowernumber
=> $borrowernumber,
367 othernames
=> $data->{'othernames'},
368 categoryname
=> $data->{'description'},
369 was_renewed
=> $input->param('was_renewed') ?
1 : 0,
371 todaysdate
=> C4
::Dates
->today(),
372 totalprice
=> sprintf("%.2f", $totalprice),
373 totaldue
=> sprintf("%.2f", $total),
374 totaldue_raw
=> $total,
375 overdues_exist
=> $overdues_exist,
376 StaffMember
=> ($category_type eq 'S'),
377 is_child
=> ($category_type eq 'C'),
378 samebranch
=> $samebranch,
379 quickslip
=> $quickslip,
380 activeBorrowerRelationship
=> (C4
::Context
->preference('borrowerRelationship') ne ''),
381 AutoResumeSuspendedHolds
=> C4
::Context
->preference('AutoResumeSuspendedHolds'),
382 SuspendHoldsIntranet
=> C4
::Context
->preference('SuspendHoldsIntranet'),
383 RoutingSerials
=> C4
::Context
->preference('RoutingSerials'),
384 debarments
=> GetDebarments
({ borrowernumber
=> $borrowernumber }),
385 PatronsPerPage
=> C4
::Context
->preference("PatronsPerPage") || 20,
386 relatives_issues_count
=> $relatives_issues_count,
387 relatives_borrowernumbers
=> \
@relatives,
391 output_html_with_http_headers
$input, $cookie, $template->output;