Lines 34-39
use C4::Dates qw/format_date/;
Link Here
|
34 |
use C4::Branch; # GetBranches |
34 |
use C4::Branch; # GetBranches |
35 |
use C4::Koha; # GetPrinter |
35 |
use C4::Koha; # GetPrinter |
36 |
use C4::Circulation; |
36 |
use C4::Circulation; |
|
|
37 |
use C4::Utils::DataTables::Members; |
37 |
use C4::Members; |
38 |
use C4::Members; |
38 |
use C4::Biblio; |
39 |
use C4::Biblio; |
39 |
use C4::Search; |
40 |
use C4::Search; |
Lines 202-230
if ( $print eq 'yes' && $borrowernumber ne '' ) {
Link Here
|
202 |
# STEP 2 : FIND BORROWER |
203 |
# STEP 2 : FIND BORROWER |
203 |
# if there is a list of find borrowers.... |
204 |
# if there is a list of find borrowers.... |
204 |
# |
205 |
# |
205 |
my $borrowerslist; |
|
|
206 |
my $message; |
206 |
my $message; |
207 |
if ($findborrower) { |
207 |
if ($findborrower) { |
208 |
my $borrowers = Search($findborrower, 'cardnumber') || []; |
208 |
my $borrower = C4::Members::GetMember( cardnumber => $findborrower ); |
209 |
if (C4::Context->preference("AddPatronLists")) { |
209 |
if ( $borrower ) { |
210 |
if (C4::Context->preference("AddPatronLists")=~/code/){ |
210 |
$borrowernumber = $borrower->{borrowernumber}; |
211 |
my $categories = GetBorrowercategoryList; |
211 |
} else { |
212 |
$categories->[0]->{'first'} = 1; |
212 |
my $dt_params = { iDisplayLength => -1 }; |
213 |
$template->param(categories=>$categories); |
213 |
my $results = C4::Utils::DataTables::Members::search( |
|
|
214 |
{ |
215 |
searchmember => $findborrower, |
216 |
dt_params => $dt_params, |
217 |
} |
218 |
); |
219 |
my $borrowers = $results->{patrons}; |
220 |
if ( scalar @$borrowers == 1 ) { |
221 |
$borrowernumber = $borrowers->[0]->{borrowernumber}; |
222 |
$query->param( 'borrowernumber', $borrowernumber ); |
223 |
$query->param( 'barcode', '' ); |
224 |
} elsif ( @$borrowers ) { |
225 |
$template->param( borrowers => $borrowers ); |
226 |
} else { |
227 |
$query->param( 'findborrower', '' ); |
228 |
$message = "'$findborrower'"; |
214 |
} |
229 |
} |
215 |
} |
230 |
} |
216 |
if ( @$borrowers == 0 ) { |
|
|
217 |
$query->param( 'findborrower', '' ); |
218 |
$message = "'$findborrower'"; |
219 |
} |
220 |
elsif ( @$borrowers == 1 ) { |
221 |
$borrowernumber = $borrowers->[0]->{'borrowernumber'}; |
222 |
$query->param( 'borrowernumber', $borrowernumber ); |
223 |
$query->param( 'barcode', '' ); |
224 |
} |
225 |
else { |
226 |
$borrowerslist = $borrowers; |
227 |
} |
228 |
} |
231 |
} |
229 |
|
232 |
|
230 |
# get the borrower information..... |
233 |
# get the borrower information..... |
Lines 420-444
if ($borrowernumber) {
Link Here
|
420 |
if ( $borrower->{'category_type'} eq 'A' ); |
423 |
if ( $borrower->{'category_type'} eq 'A' ); |
421 |
} |
424 |
} |
422 |
|
425 |
|
423 |
my @values; |
|
|
424 |
my %labels; |
425 |
my $selectborrower; |
426 |
if ($borrowerslist) { |
427 |
foreach ( |
428 |
sort {(lc $a->{'surname'} cmp lc $b->{'surname'} || lc $a->{'firstname'} cmp lc $b->{'firstname'}) |
429 |
} @$borrowerslist |
430 |
) |
431 |
{ |
432 |
push @values, $_->{'borrowernumber'}; |
433 |
$labels{ $_->{'borrowernumber'} } = |
434 |
"$_->{'surname'}, $_->{'firstname'} ... ($_->{'cardnumber'} - $_->{'categorycode'} - $_->{'branchcode'}) ... $_->{'address'} "; |
435 |
} |
436 |
$selectborrower = { |
437 |
values => \@values, |
438 |
labels => \%labels, |
439 |
}; |
440 |
} |
441 |
|
442 |
#title |
426 |
#title |
443 |
my $flags = $borrower->{'flags'}; |
427 |
my $flags = $borrower->{'flags'}; |
444 |
foreach my $flag ( sort keys %$flags ) { |
428 |
foreach my $flag ( sort keys %$flags ) { |
Lines 589-595
$template->param(
Link Here
|
589 |
stickyduedate => $stickyduedate, |
573 |
stickyduedate => $stickyduedate, |
590 |
duedatespec => $duedatespec, |
574 |
duedatespec => $duedatespec, |
591 |
message => $message, |
575 |
message => $message, |
592 |
selectborrower => $selectborrower, |
|
|
593 |
totaldue => sprintf('%.2f', $total), |
576 |
totaldue => sprintf('%.2f', $total), |
594 |
inprocess => $inprocess, |
577 |
inprocess => $inprocess, |
595 |
is_child => ($borrowernumber && $borrower->{'category_type'} eq 'C'), |
578 |
is_child => ($borrowernumber && $borrower->{'category_type'} eq 'C'), |