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

(-)a/Koha/Biblio.pm (-3 / +2 lines)
Lines 2171-2177 sub unlink_marc_host { Link Here
2171
    C4::Biblio::ModBiblio( $record, $self->biblionumber );
2171
    C4::Biblio::ModBiblio( $record, $self->biblionumber );
2172
}
2172
}
2173
2173
2174
2175
=head3 link_marc_host
2174
=head3 link_marc_host
2176
2175
2177
  $biblio->link_marc_host({ field => $link_field});
2176
  $biblio->link_marc_host({ field => $link_field});
Lines 2220-2230 sub link_marc_bundled_item { Link Here
2220
    if ( ref( $params->{bundled_item} ) eq 'Koha::Item' ) {
2219
    if ( ref( $params->{bundled_item} ) eq 'Koha::Item' ) {
2221
        $bundled_item = $params->{bundled_item};
2220
        $bundled_item = $params->{bundled_item};
2222
    } else {
2221
    } else {
2223
        my $bundled_item = Koha::Items->find( $params->{host} );
2222
        my $bundled_item = Koha::Items->find( $params->{bundled_item} );
2224
    }
2223
    }
2225
2224
2226
    my $record = $self->metadata->record;
2225
    my $record = $self->metadata->record;
2227
    my $tag    = C4::Context->preference('marcflavour') eq 'UNIMARC' ? '462' : '774';
2226
    my $tag    = C4::Context->preference('marcflavour') eq 'UNIMARC' ? '462' : '774';
2227
2228
    # Remove fields that references the same itemnumber
2228
    # Remove fields that references the same itemnumber
2229
    # to avoid duplicates
2229
    # to avoid duplicates
2230
    my @fields           = $record->field($tag);
2230
    my @fields           = $record->field($tag);
2231
- 

Return to bug 38093