|
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'), |