# Note: possible_reserves will contain all title level holds on this bib and item level

    if ( C4::Context->preference('AllowRenewalIfOtherItemsAvailable') && !Koha::Holds->search( { itemnumber => $itemnumber, found => undef } )->count()

    # holds on the checked out item

 )

    my ( $resfound, $resrec, $possible_reserves ) = C4::Reserves::CheckReserves($itemnumber);

    # If next hold is non priority, then check if any hold with priority (non_priority = 0) exists for the same biblionumber.

    if ( $resfound && $resrec->{non_priority} ) {

        $resfound = Koha::Holds->search(

            { biblionumber => $resrec->{biblionumber}, non_priority => 0 } )

          ->count > 0;

    }

    # This item can fill one or more unfilled reserve, can those unfilled reserves

    # all be filled by other available items?

    if ( $resfound

        && C4::Context->preference('AllowRenewalIfOtherItemsAvailable') && !Koha::Holds->search( { itemnumber => $itemnumber, found => undef } )->count() )

        my $items = Koha::Items->search({

        my @other_items = Koha::Items->search({

            biblionumber => $resrec->{biblionumber},

            biblionumber => $biblio->biblionumber,

            -not         => { itemnumber => $itemnumber }

            -not         => { itemnumber => $itemnumber } })->as_list;

					});

        my $item_count = $items->count();

        # Get all other reserves that could have been filled by this item

        my @borrowernumbers = map { $_->{borrowernumber} } @$possible_reserves;

        # Note: fetching the patrons in this manner means that a patron with 2 holds will

        # not block renewal if one reserve can be satisfied i.e. each patron is checked once

        my $patrons = Koha::Patrons->search({

            borrowernumber => { -in => \@borrowernumbers }

					    });

        my $patron_count = $patrons->count();

        return ( 0, "on_reserve" ) if ($patron_count > $item_count);

        # We cannot possibly fill all reserves if we don't have enough items

        # If we can fill each hold that has been found with the available items on the record

        # then the patron can renew. If we cannot, they cannot renew.

        # FIXME This code does not check whether the item we are renewing can fill

        # any of the existing reserves.

        my $reservable = 0;

        my $seen = 0;

        foreach my $possible_hold (@possible_holds) {

      PATRON: while ( my $patron = $patrons->next ) {

            my $fillable = 0;

          # If there is a reserve that cannot be filled we are done

            my $patron_with_reserve = Koha::Patrons->find($possible_hold->borrowernumber);

          return ( 0, "on_reserve" ) if ( $seen > $reservable );

            my $items_any_available = ItemsAnyAvailableAndNotRestricted( { biblionumber => $item->biblionumber, patron => $patron_with_reserve });

          my $items_any_available = ItemsAnyAvailableAndNotRestricted( { biblionumber => $item->biblionumber, patron => $patron });

          while ( my $other_item = $items->next ) {

            # FIXME: We are not checking whether the item we are renewing can fill the hold

            foreach my $other_item (@other_items) {

              next unless IsAvailableForItemLevelRequest($other_item, $patron, undef, $items_any_available);

              next unless IsAvailableForItemLevelRequest($other_item, $patron_with_reserve, undef, $items_any_available);

              next unless CanItemBeReserved($patron,$other_item,undef,{ignore_hold_counts=>1})->{status} eq 'OK';

              next unless CanItemBeReserved($patron_with_reserve,$other_item,undef,{ignore_hold_counts=>1})->{status} eq 'OK';

              $reservable++;

              $fillable = 1;

              if ($reservable >= $patron_count) {

                  $resfound = 0;

                  last PATRON;

              }

          }

            }

          $items->reset;

            return ( 0, "on_reserve" ) unless $fillable;

          $seen++;

        }

      }

    } else {

        my ($status, $matched_reserve, $possible_reserves) = CheckReserves($itemnumber);

        return ( 0, "on_reserve" ) if $matched_reserve;

    plan tests => 104;

    plan tests => 105;