Lines 357-382
sub GetReservesFromBiblionumber {
Link Here
|
357 |
|
357 |
|
358 |
=head2 GetReservesFromItemnumber |
358 |
=head2 GetReservesFromItemnumber |
359 |
|
359 |
|
360 |
( $reservedate, $borrowernumber, $branchcode, $reserve_id, $waitingdate ) = GetReservesFromItemnumber($itemnumber, $all_dates); |
360 |
( $reservedate, $borrowernumber, $branchcode, $reserve_id, $waitingdate ) = GetReservesFromItemnumber($itemnumber); |
361 |
|
361 |
|
362 |
Get the first reserve for a specific item number (based on priority). Returns the abovementioned values for that reserve. |
362 |
Get the first reserve for a specific item number (based on priority). Returns the abovementioned values for that reserve. |
363 |
|
363 |
|
364 |
all_dates is an optional parameter, telling Koha to include or exclude future holds |
364 |
The routine does not look at future reserves (read: item level holds), but DOES include future waits (a confirmed future hold). |
365 |
|
365 |
|
366 |
=cut |
366 |
=cut |
367 |
|
367 |
|
368 |
sub GetReservesFromItemnumber { |
368 |
sub GetReservesFromItemnumber { |
369 |
my ( $itemnumber, $all_dates ) = @_; |
369 |
my ( $itemnumber ) = @_; |
370 |
my $dbh = C4::Context->dbh; |
370 |
my $dbh = C4::Context->dbh; |
371 |
my $query = " |
371 |
my $query = " |
372 |
SELECT reservedate,borrowernumber,branchcode,reserve_id,waitingdate |
372 |
SELECT reservedate,borrowernumber,branchcode,reserve_id,waitingdate |
373 |
FROM reserves |
373 |
FROM reserves |
374 |
WHERE itemnumber=? |
374 |
WHERE itemnumber=? AND ( reservedate <= CURRENT_DATE() OR |
|
|
375 |
waitingdate IS NOT NULL ) |
376 |
ORDER BY priority |
375 |
"; |
377 |
"; |
376 |
unless ( $all_dates ) { |
|
|
377 |
$query .= " AND reservedate <= CURRENT_DATE()"; |
378 |
} |
379 |
$query .= ' ORDER BY priority'; |
380 |
my $sth_res = $dbh->prepare($query); |
378 |
my $sth_res = $dbh->prepare($query); |
381 |
$sth_res->execute($itemnumber); |
379 |
$sth_res->execute($itemnumber); |
382 |
my ( $reservedate, $borrowernumber,$branchcode, $reserve_id, $wait ) = $sth_res->fetchrow_array; |
380 |
my ( $reservedate, $borrowernumber,$branchcode, $reserve_id, $wait ) = $sth_res->fetchrow_array; |