|
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; |