View | Details | Raw Unified | Return to bug 36313
Collapse All | Expand All

(-)a/C4/Circulation.pm (-6 / +5 lines)
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
- 

Return to bug 36313