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