Lines 378-384
sub transferbook {
Link Here
|
378 |
# find reserves..... |
378 |
# find reserves..... |
379 |
# That'll save a database query. |
379 |
# That'll save a database query. |
380 |
my ( $resfound, $resrec, undef ) = |
380 |
my ( $resfound, $resrec, undef ) = |
381 |
CheckReserves( $item ); |
381 |
C4::Reserves::CheckReserves( $item ); |
382 |
if ( $resfound ) { |
382 |
if ( $resfound ) { |
383 |
$resrec->{'ResFound'} = $resfound; |
383 |
$resrec->{'ResFound'} = $resfound; |
384 |
$messages->{'ResFound'} = $resrec; |
384 |
$messages->{'ResFound'} = $resrec; |
Lines 1177-1183
sub CanBookBeIssued {
Link Here
|
1177 |
|
1177 |
|
1178 |
unless ( $ignore_reserves || $recall ) { |
1178 |
unless ( $ignore_reserves || $recall ) { |
1179 |
# See if the item is on reserve. |
1179 |
# See if the item is on reserve. |
1180 |
my ( $restype, $res ) = CheckReserves( $item_object ); |
1180 |
my ( $restype, $res ) = C4::Reserves::CheckReserves( $item_object ); |
1181 |
if ($restype) { |
1181 |
if ($restype) { |
1182 |
my $resbor = $res->{'borrowernumber'}; |
1182 |
my $resbor = $res->{'borrowernumber'}; |
1183 |
if ( $resbor ne $patron->borrowernumber ) { |
1183 |
if ( $resbor ne $patron->borrowernumber ) { |
Lines 1438-1444
sub checkHighHolds {
Link Here
|
1438 |
# Remove any items that are not holdable for this patron |
1438 |
# Remove any items that are not holdable for this patron |
1439 |
# We need to ignore hold counts as the borrower's own hold that will be filled by the checkout |
1439 |
# We need to ignore hold counts as the borrower's own hold that will be filled by the checkout |
1440 |
# could prevent them from placing further holds |
1440 |
# could prevent them from placing further holds |
1441 |
@items = grep { CanItemBeReserved( $patron, $_, undef, { ignore_hold_counts => 1 } )->{status} eq 'OK' } @items; |
1441 |
@items = grep { C4::Reserves::CanItemBeReserved( $patron, $_, undef, { ignore_hold_counts => 1 } )->{status} eq 'OK' } @items; |
1442 |
|
1442 |
|
1443 |
my $items_count = scalar @items; |
1443 |
my $items_count = scalar @items; |
1444 |
|
1444 |
|
Lines 2434-2440
sub AddReturn {
Link Here
|
2434 |
# launch the Checkreserves routine to find any holds |
2434 |
# launch the Checkreserves routine to find any holds |
2435 |
my ($resfound, $resrec); |
2435 |
my ($resfound, $resrec); |
2436 |
my $lookahead= C4::Context->preference('ConfirmFutureHolds'); #number of days to look for future holds |
2436 |
my $lookahead= C4::Context->preference('ConfirmFutureHolds'); #number of days to look for future holds |
2437 |
($resfound, $resrec, undef) = CheckReserves( $item, $lookahead ) unless ( $item->withdrawn ); |
2437 |
($resfound, $resrec, undef) = C4::Reserves::CheckReserves( $item, $lookahead ) unless ( $item->withdrawn ); |
2438 |
# if a hold is found and is waiting at another branch, change the priority back to 1 and trigger the hold (this will trigger a transfer and update the hold status properly) |
2438 |
# if a hold is found and is waiting at another branch, change the priority back to 1 and trigger the hold (this will trigger a transfer and update the hold status properly) |
2439 |
if ( $resfound and $resfound eq "Waiting" and $branch ne $resrec->{branchcode} ) { |
2439 |
if ( $resfound and $resfound eq "Waiting" and $branch ne $resrec->{branchcode} ) { |
2440 |
my $hold = C4::Reserves::RevertWaitingStatus( { itemnumber => $item->itemnumber } ); |
2440 |
my $hold = C4::Reserves::RevertWaitingStatus( { itemnumber => $item->itemnumber } ); |
Lines 3056-3062
sub CanBookBeRenewed {
Link Here
|
3056 |
if ( $item->current_holds->search( { non_priority => 0 } )->count ); |
3056 |
if ( $item->current_holds->search( { non_priority => 0 } )->count ); |
3057 |
|
3057 |
|
3058 |
|
3058 |
|
3059 |
my ( $status, $matched_reserve, $possible_holds ) = CheckReserves($item); |
3059 |
my ( $status, $matched_reserve, $possible_holds ) = C4::Reserves::CheckReserves($item); |
3060 |
my @fillable_holds = (); |
3060 |
my @fillable_holds = (); |
3061 |
foreach my $possible_hold ( @{$possible_holds} ) { |
3061 |
foreach my $possible_hold ( @{$possible_holds} ) { |
3062 |
push @fillable_holds, $possible_hold unless $possible_hold->{non_priority}; |
3062 |
push @fillable_holds, $possible_hold unless $possible_hold->{non_priority}; |
3063 |
- |
|
|