=head3 link_marc_bundled_item

  $biblio->link_marc_bundled_item({ bundled_item => $item });

  $biblio->link_marc_bundled_item({ bundled_item => $itemnumber });

Links a parent MARC record to the child. Expects either the biblio object or biblionumber of the host to link to.

=cut

sub link_marc_bundled_item {

    my ( $self, $params ) = @_;

    my $host_link_field;

    my $bundled_item;

    if ( ref( $params->{bundled_item} ) eq 'Koha::Item' ) {

        $bundled_item = $params->{bundled_item};

    } else {

        my $bundled_item = Koha::Items->find( $params->{host} );

    }

    my $record = $self->metadata->record;

    my $tag    = C4::Context->preference('marcflavour') eq 'UNIMARC' ? '462' : '774';

    # Remove fields that references the same itemnumber

    # to avoid duplicates

    my @fields           = $record->field($tag);

    my @duplicate_fields = grep { $_->subfield('9') eq $bundled_item->itemnumber; } @fields;

    $record->delete_fields(@duplicate_fields);

    my $field = MARC::Field->new(

        $tag, '', '',

        't' => $bundled_item->biblio->title,

        '0' => $bundled_item->biblionumber,

        '9' => $bundled_item->itemnumber

    );

    $record->insert_fields_ordered($field);

    C4::Biblio::ModBiblio( $record, $self->biblionumber );

    return $self;

}

            $item->biblio->link_marc_bundled_item( { bundled_item => $bundle_item } );