Bug 11401: QA followup
[koha.git] / members / moremember.pl
1 #!/usr/bin/perl
2
3 # Copyright 2000-2002 Katipo Communications
4 # Copyright 2010 BibLibre
5 # Copyright 2014 ByWater Solutions
6 #
7 # This file is part of Koha.
8 #
9 # Koha is free software; you can redistribute it and/or modify it under the
10 # terms of the GNU General Public License as published by the Free Software
11 # Foundation; either version 2 of the License, or (at your option) any later
12 # version.
13 #
14 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
15 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
16 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
17 #
18 # You should have received a copy of the GNU General Public License along
19 # with Koha; if not, write to the Free Software Foundation, Inc.,
20 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
21
22
23 =head1 moremember.pl
24
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
31
32  needs html removed and to use the C4::Output more, but its tricky
33
34 =cut
35
36 use strict;
37 #use warnings; FIXME - Bug 2505
38 use CGI;
39 use C4::Context;
40 use C4::Auth;
41 use C4::Output;
42 use C4::Members;
43 use C4::Members::Attributes;
44 use C4::Members::AttributeTypes;
45 use C4::Dates;
46 use C4::Reserves;
47 use C4::Circulation;
48 use C4::Koha;
49 use C4::Letters;
50 use C4::Biblio;
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);
56 use Module::Load;
57 if ( C4::Context->preference('NorwegianPatronDBEnable') && C4::Context->preference('NorwegianPatronDBEnable') == 1 ) {
58     load Koha::NorwegianPatronDB, qw( NLGetSyncDataFromBorrowernumber );
59 }
60 #use Smart::Comments;
61 #use Data::Dumper;
62 use DateTime;
63 use Koha::DateUtils;
64 use Koha::Database;
65
66 use vars qw($debug);
67
68 BEGIN {
69         $debug = $ENV{DEBUG} || 0;
70 }
71
72 my $dbh = C4::Context->dbh;
73
74 my $input = CGI->new;
75 $debug or $debug = $input->param('debug') || 0;
76 my $print = $input->param('print');
77
78 my $template_name;
79 my $quickslip = 0;
80
81 my $flagsrequired;
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";
94     $quickslip = 1;
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 };
99 } else {
100     $template_name = "members/moremember.tt";
101     $flagsrequired = { borrowers => 1 };
102 }
103
104 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
105     {
106         template_name   => $template_name,
107         query           => $input,
108         type            => "intranet",
109         authnotrequired => 0,
110         flagsrequired   => $flagsrequired,
111         debug           => 1,
112     }
113 );
114 my $borrowernumber = $input->param('borrowernumber');
115
116 my ( $od, $issue, $fines ) = GetMemberIssuesAndFines($borrowernumber);
117 $template->param( issuecount => $issue );
118
119 my $data = GetMember( 'borrowernumber' => $borrowernumber );
120
121 if ( not defined $data ) {
122     $template->param (unknowuser => 1);
123         output_html_with_http_headers $input, $cookie, $template->output;
124     exit;
125 }
126
127 my $category_type = $data->{'category_type'};
128
129 $debug and printf STDERR "dates (enrolled,expiry,birthdate) raw: (%s, %s, %s)\n", map {$data->{$_}} qw(dateenrolled dateexpiry dateofbirth);
130 foreach (qw(dateenrolled dateexpiry dateofbirth)) {
131                 my $userdate = $data->{$_};
132                 unless ($userdate) {
133                         $debug and warn sprintf "Empty \$data{%12s}", $_;
134                         $data->{$_} = '';
135                         next;
136                 }
137                 $userdate = C4::Dates->new($userdate,'iso')->output('syspref');
138                 $data->{$_} = $userdate || '';
139                 $template->param( $_ => $userdate );
140 }
141 $data->{'IS_ADULT'} = ( $data->{'categorycode'} ne 'I' );
142
143 for (qw(gonenoaddress lost borrowernotes)) {
144          $data->{$_} and $template->param(flagged => 1) and last;
145 }
146
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} );
153     }
154 }
155
156 $data->{'ethnicity'} = fixEthnicity( $data->{'ethnicity'} );
157 $data->{ "sex_".$data->{'sex'}."_p" } = 1 if defined $data->{sex};
158
159 my $catcode;
160 if ( $category_type eq 'C') {
161    my  ( $catcodes, $labels ) =  GetborCatFromCatType( 'A', 'WHERE category_type = ?' );
162    my $cnt = scalar(@$catcodes);
163
164    $template->param( 'CATCODE_MULTI' => 1) if $cnt > 1;
165    $template->param( 'catcode' =>    $catcodes->[0])  if $cnt == 1;
166 }
167
168
169 if ( $data->{'ethnicity'} || $data->{'ethnotes'} ) {
170     $template->param( printethnicityline => 1 );
171 }
172 if ( $category_type eq 'A' || $category_type eq 'I') {
173     $template->param( isguarantee => 1 );
174
175     # FIXME
176     # It looks like the $i is only being returned to handle walking through
177     # the array, which is probably better done as a foreach loop.
178     #
179     my ( $count, $guarantees ) = GetGuarantees( $data->{'borrowernumber'} );
180     my @guaranteedata;
181     for ( my $i = 0 ; $i < $count ; $i++ ) {
182         push(@guaranteedata,
183             {
184                 borrowernumber => $guarantees->[$i]->{'borrowernumber'},
185                 cardnumber     => $guarantees->[$i]->{'cardnumber'},
186                 name           => $guarantees->[$i]->{'firstname'} . " "
187                                 . $guarantees->[$i]->{'surname'}
188             }
189         );
190     }
191     $template->param( guaranteeloop => \@guaranteedata );
192     ( $template->param( adultborrower => 1 ) ) if ( $category_type eq 'A' || $category_type eq 'I' );
193 }
194 else {
195     if ($data->{'guarantorid'}){
196             my ($guarantor) = GetMember( 'borrowernumber' =>$data->{'guarantorid'});
197                 $template->param(guarantor => 1);
198                 foreach (qw(borrowernumber cardnumber firstname surname)) {        
199                           $template->param("guarantor$_" => $guarantor->{$_});
200         }
201     }
202         if ($category_type eq 'C'){
203                 $template->param('C' => 1);
204         }
205 }
206
207 my %bor;
208 $bor{'borrowernumber'} = $borrowernumber;
209
210 # Converts the branchcode to the branch name
211 my $samebranch;
212 if ( C4::Context->preference("IndependentBranches") ) {
213     my $userenv = C4::Context->userenv;
214     if ( C4::Context->IsSuperLibrarian() ) {
215         $samebranch = 1;
216     }
217     else {
218         $samebranch = ( $data->{'branchcode'} eq $userenv->{branch} );
219     }
220 }
221 else {
222     $samebranch = 1;
223 }
224 my $branchdetail = GetBranchDetail( $data->{'branchcode'});
225 @{$data}{keys %$branchdetail} = values %$branchdetail; # merge in all branch columns
226
227 my ( $total, $accts, $numaccts) = GetMemberAccountRecords( $borrowernumber );
228 my $lib1 = &GetSortDetails( "Bsort1", $data->{'sort1'} );
229 my $lib2 = &GetSortDetails( "Bsort2", $data->{'sort2'} );
230 $template->param( lib1 => $lib1 ) if ($lib1);
231 $template->param( lib2 => $lib2 ) if ($lib2);
232
233 # If printing a page, send the account informations to the template
234 if ($print eq "page") {
235     foreach my $accountline (@$accts) {
236         $accountline->{amount} = sprintf '%.2f', $accountline->{amount};
237         $accountline->{amountoutstanding} = sprintf '%.2f', $accountline->{amountoutstanding};
238
239         if ($accountline->{accounttype} ne 'F' && $accountline->{accounttype} ne 'FU'){
240             $accountline->{printtitle} = 1;
241         }
242     }
243     $template->param( accounts => $accts );
244 }
245
246 # Show OPAC privacy preference is system preference is set
247 if ( C4::Context->preference('OPACPrivacy') ) {
248     $template->param( OPACPrivacy => 1);
249     $template->param( "privacy".$data->{'privacy'} => 1);
250 }
251
252 my @relatives = GetMemberRelatives($borrowernumber);
253 my $relatives_issues_count =
254   Koha::Database->new()->schema()->resultset('Issue')
255   ->count( { borrowernumber => \@relatives } );
256
257 my $roadtype = C4::Koha::GetAuthorisedValueByCode( 'ROADTYPE', $data->{streettype} );
258 my $today       = DateTime->now( time_zone => C4::Context->tz);
259 $today->truncate(to => 'day');
260 my @borrowers_with_issues;
261 my $overdues_exist = 0;
262 my $totalprice = 0;
263
264 ### ###############################################################################
265 # BUILD HTML
266 # show all reserves of this borrower, and the position of the reservation ....
267 if ($borrowernumber) {
268     $template->param(
269         holds_count => Koha::Database->new()->schema()->resultset('Reserve')
270           ->count( { borrowernumber => $borrowernumber } ) );
271 }
272
273 # current alert subscriptions
274 my $alerts = getalert($borrowernumber);
275 foreach (@$alerts) {
276     $_->{ $_->{type} } = 1;
277     $_->{relatedto} = findrelatedto( $_->{type}, $_->{externalid} );
278 }
279
280 my $candeleteuser;
281 my $userenv = C4::Context->userenv;
282 if ( C4::Context->IsSuperLibrarian() ) {
283     $candeleteuser = 1;
284 }
285 elsif ( C4::Context->preference("IndependentBranches") ) {
286     $candeleteuser = ( $data->{'branchcode'} eq $userenv->{branch} );
287 }
288 else {
289     if ( C4::Auth::getuserflags( $userenv->{flags}, $userenv->{number} )->{borrowers} ) {
290         $candeleteuser = 1;
291     }
292     else {
293         $candeleteuser = 0;
294     }
295 }
296
297 # Add sync data to the user data
298 if ( C4::Context->preference('NorwegianPatronDBEnable') && C4::Context->preference('NorwegianPatronDBEnable') == 1 ) {
299     my $sync = NLGetSyncDataFromBorrowernumber( $borrowernumber );
300     if ( $sync ) {
301         $data->{'sync'}       = $sync->sync;
302         $data->{'syncstatus'} = $sync->syncstatus;
303         $data->{'lastsync'}   = $sync->lastsync;
304     }
305 }
306
307 # check to see if patron's image exists in the database
308 # basically this gives us a template var to condition the display of
309 # patronimage related interface on
310 my ($picture, $dberror) = GetPatronImage($data->{'borrowernumber'});
311 $template->param( picture => 1 ) if $picture;
312
313 my $branch=C4::Context->userenv->{'branch'};
314
315 $template->param(%$data);
316
317 if (C4::Context->preference('ExtendedPatronAttributes')) {
318     my $attributes = C4::Members::Attributes::GetBorrowerAttributes($borrowernumber);
319     my @classes = uniq( map {$_->{class}} @$attributes );
320     @classes = sort @classes;
321
322     my @attributes_loop;
323     for my $class (@classes) {
324         my @items;
325         for my $attr (@$attributes) {
326             push @items, $attr if $attr->{class} eq $class
327         }
328         my $lib = GetAuthorisedValueByCode( 'PA_CLASS', $class ) || $class;
329         push @attributes_loop, {
330             class => $class,
331             items => \@items,
332             lib   => $lib,
333         };
334     }
335
336     $template->param(
337         ExtendedPatronAttributes => 1,
338         attributes_loop => \@attributes_loop
339     );
340
341     my @types = C4::Members::AttributeTypes::GetAttributeTypes();
342     if (scalar(@types) == 0) {
343         $template->param(no_patron_attribute_types => 1);
344     }
345 }
346
347 if (C4::Context->preference('EnhancedMessagingPreferences')) {
348     C4::Form::MessagingPreferences::set_form_values({ borrowernumber => $borrowernumber }, $template);
349     $template->param(messaging_form_inactive => 1);
350     $template->param(SMSSendDriver => C4::Context->preference("SMSSendDriver"));
351     $template->param(SMSnumber     => defined $data->{'smsalertnumber'} ? $data->{'smsalertnumber'} : $data->{'mobile'});
352     $template->param(TalkingTechItivaPhone => C4::Context->preference("TalkingTechItivaPhoneNotification"));
353 }
354
355 # Computes full borrower address
356 my $address = $data->{'streetnumber'} . " $roadtype " . $data->{'address'};
357
358 # in template <TMPL_IF name="I"> => instutitional (A for Adult, C for children) 
359 $template->param( $data->{'categorycode'} => 1 ); 
360 $template->param(
361     detailview => 1,
362     AllowRenewalLimitOverride => C4::Context->preference("AllowRenewalLimitOverride"),
363     CANDELETEUSER    => $candeleteuser,
364     roadtype        => $roadtype,
365     borrowernumber  => $borrowernumber,
366     othernames      => $data->{'othernames'},
367     categoryname    => $data->{'description'},
368     was_renewed     => $input->param('was_renewed') ? 1 : 0,
369     branch          => $branch,
370     todaysdate      => C4::Dates->today(),
371     totalprice      => sprintf("%.2f", $totalprice),
372     totaldue        => sprintf("%.2f", $total),
373     totaldue_raw    => $total,
374     overdues_exist  => $overdues_exist,
375     StaffMember     => ($category_type eq 'S'),
376     is_child        => ($category_type eq 'C'),
377     samebranch     => $samebranch,
378     quickslip             => $quickslip,
379     activeBorrowerRelationship => (C4::Context->preference('borrowerRelationship') ne ''),
380     AutoResumeSuspendedHolds => C4::Context->preference('AutoResumeSuspendedHolds'),
381     SuspendHoldsIntranet => C4::Context->preference('SuspendHoldsIntranet'),
382     RoutingSerials => C4::Context->preference('RoutingSerials'),
383     debarments => GetDebarments({ borrowernumber => $borrowernumber }),
384     PatronsPerPage => C4::Context->preference("PatronsPerPage") || 20,
385     relatives_issues_count => $relatives_issues_count,
386     relatives_borrowernumbers => \@relatives,
387     address => $address
388 );
389
390 output_html_with_http_headers $input, $cookie, $template->output;