&& C4::Context->preference('AllowRenewalIfOtherItemsAvailable') )

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

        my $item_holds = Koha::Holds->search( { itemnumber => $itemnumber, found => undef } )->count();

        # Get all other items that could possibly fill reserves

        if ($item_holds) {

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

            # There is an item level hold on this item, no other item can fill the hold

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

            $resfound = 1;

            biblionumber => $resrec->{biblionumber},

        }

            onloan       => undef,

        else {

            notforloan   => 0,

            -not         => { itemnumber => $itemnumber }

            # Get all other items that could possibly fill reserves

					});

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

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

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

                biblionumber => $resrec->{biblionumber},

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

                onloan       => undef,

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

                notforloan   => 0,

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

                -not         => { itemnumber => $itemnumber }

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

            });

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

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

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

					    });

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

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

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

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

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

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

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

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

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

        # 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.

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

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

        # any of the existing reserves.

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

        my $reservable = 0;

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

        my %matched_items;

        my $seen = 0;

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

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

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

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

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

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

            # any of the existing reserves.

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

            my $reservable = 0;

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

            my %matched_items;

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

            my $seen = 0;

              next if IsItemOnHoldAndFound( $other_item->itemnumber );

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

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

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

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

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

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

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

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

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

              # items will fill holds at checkin that are rejected here

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

              $reservable++;

                    next if IsItemOnHoldAndFound( $other_item->itemnumber );

              if ($reservable >= $patron_count) {

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

                  $resfound = 0;

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

                  last PATRON;

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

              }

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

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

                    # items will fill holds at checkin that are rejected here

              last;

                    $reservable++;

          }

                    if ($reservable >= $patron_count) {

          $items->reset;

                        $resfound = 0;

          $seen++;

                        last PATRON;

      }

                    }

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

                    last;

                }

                $items->reset;

                $seen++;

            }

        }