my $biblio_has_holds = Koha::Holds->search({ biblionumber => $item->biblionumber, non_priority => 0 } )->count > 0;

    my $fillable_holds = Koha::Holds->search(

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

        {

 )

            biblionumber => $item->biblionumber,

    {

            non_priority => 0,

        my $biblio = Koha::Biblios->find($item->biblionumber);

            found        => undef,

        my @possible_holds = $biblio->current_holds->unfilled->search(

            reservedate  => { '<=' => \'NOW()' },

            {non_priority => 0},

            suspend      => 0,

            { prefetch => 'patron' }

        },

        )->as_list;

        { prefetch => 'patron' }

    );

        # Get all other items that could possibly fill reserves

    if ( $fillable_holds->count ) {

        # FIXME We could join reserves (or more tables) here to eliminate some checks later

        if ( C4::Context->preference('AllowRenewalIfOtherItemsAvailable') ) {

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

            my @possible_holds = $fillable_holds->as_list;

            biblionumber => $biblio->biblionumber,

            onloan       => undef,

            # Get all other items that could possibly fill reserves

            notforloan   => 0,

            # FIXME We could join reserves (or more tables) here to eliminate some checks later

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

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

                biblionumber => $item->biblionumber,

        return ( 0, "on_reserve" ) if @possible_holds && (scalar @other_items < scalar @possible_holds);

                onloan       => undef,

                notforloan   => 0,

        my %matched_items;

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

        foreach my $possible_hold (@possible_holds) {

            my $fillable = 0;

            return ( 0, "on_reserve" ) if @possible_holds && (scalar @other_items < scalar @possible_holds);

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

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

            my %matched_items;

            foreach my $possible_hold (@possible_holds) {

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

                my $fillable = 0;

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

            foreach my $other_item (@other_items) {

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

              next if defined $matched_items{$other_item->itemnumber};

              next if IsItemOnHoldAndFound( $other_item->itemnumber );

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

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

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

                foreach my $other_item (@other_items) {

              # NOTE: At checkin we call 'CheckReserves' which checks hold 'policy'

                  next if defined $matched_items{$other_item->itemnumber};

              # CanItemBeReserved checks 'rules' and 'policies' which means

                  next if IsItemOnHoldAndFound( $other_item->itemnumber );

              # items will fill holds at checkin that are rejected here

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

              $fillable = 1;

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

              $matched_items{$other_item->itemnumber} = 1;

                  # NOTE: At checkin we call 'CheckReserves' which checks hold 'policy'

              last;

                  # CanItemBeReserved checks 'rules' and 'policies' which means

                  # items will fill holds at checkin that are rejected here

                  $fillable = 1;

                  $matched_items{$other_item->itemnumber} = 1;

                  last;

                }

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

    } elsif ($biblio_has_holds) {

        } else {

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

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

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

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

        }