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