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