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