Lines 39-44
use C4::Biblio;
Link Here
|
39 |
use C4::Search; |
39 |
use C4::Search; |
40 |
use MARC::Record; |
40 |
use MARC::Record; |
41 |
use C4::Reserves; |
41 |
use C4::Reserves; |
|
|
42 |
use Koha::Holds; |
42 |
use C4::Context; |
43 |
use C4::Context; |
43 |
use CGI::Session; |
44 |
use CGI::Session; |
44 |
use C4::Members::Attributes qw(GetBorrowerAttributes); |
45 |
use C4::Members::Attributes qw(GetBorrowerAttributes); |
Lines 388-423
if ($borrowernumber) {
Link Here
|
388 |
# BUILD HTML |
389 |
# BUILD HTML |
389 |
# show all reserves of this borrower, and the position of the reservation .... |
390 |
# show all reserves of this borrower, and the position of the reservation .... |
390 |
if ($borrowernumber) { |
391 |
if ($borrowernumber) { |
|
|
392 |
my $holds = Koha::Holds->new()->search( { borrowernumber => $borrowernumber } ); |
391 |
$template->param( |
393 |
$template->param( |
392 |
holds_count => Koha::Database->new()->schema()->resultset('Reserve') |
394 |
holds_count => $holds->count(), |
393 |
->count( { borrowernumber => $borrowernumber } ) ); |
395 |
WaitingHolds => scalar $holds->waiting(), |
394 |
my @borrowerreserv = GetReservesFromBorrowernumber($borrowernumber); |
396 |
); |
395 |
|
397 |
|
396 |
my @WaitingReserveLoop; |
398 |
$template->param( adultborrower => 1 ) if ( $borrower->{'category_type'} eq 'A' ); |
397 |
foreach my $num_res (@borrowerreserv) { |
|
|
398 |
if ( $num_res->{'found'} && $num_res->{'found'} eq 'W' ) { |
399 |
my $getiteminfo = GetBiblioFromItemNumber( $num_res->{'itemnumber'} ); |
400 |
my $itemtypeinfo = getitemtypeinfo( (C4::Context->preference('item-level_itypes')) ? $getiteminfo->{'itype'} : $getiteminfo->{'itemtype'} ); |
401 |
my %getWaitingReserveInfo; |
402 |
$getWaitingReserveInfo{title} = $getiteminfo->{'title'}; |
403 |
$getWaitingReserveInfo{biblionumber} = |
404 |
$getiteminfo->{'biblionumber'}; |
405 |
$getWaitingReserveInfo{itemtype} = $itemtypeinfo->{'description'}; |
406 |
$getWaitingReserveInfo{author} = $getiteminfo->{'author'}; |
407 |
$getWaitingReserveInfo{itemcallnumber} = |
408 |
$getiteminfo->{'itemcallnumber'}; |
409 |
$getWaitingReserveInfo{reservedate} = |
410 |
format_date( $num_res->{'reservedate'} ); |
411 |
$getWaitingReserveInfo{waitingat} = |
412 |
GetBranchName( $num_res->{'branchcode'} ); |
413 |
$getWaitingReserveInfo{waitinghere} = 1 |
414 |
if $num_res->{'branchcode'} eq $branch; |
415 |
push( @WaitingReserveLoop, \%getWaitingReserveInfo ); |
416 |
} |
417 |
} |
418 |
$template->param( WaitingReserveLoop => \@WaitingReserveLoop ); |
419 |
$template->param( adultborrower => 1 ) |
420 |
if ( $borrower->{'category_type'} eq 'A' ); |
421 |
} |
399 |
} |
422 |
|
400 |
|
423 |
my @values; |
401 |
my @values; |