|
Lines 750-756
sub _host_itemnumbers {
Link Here
|
| 750 |
my $marcflavour = C4::Context->preference("marcflavour"); |
750 |
my $marcflavour = C4::Context->preference("marcflavour"); |
| 751 |
my $analyticfield = '773'; |
751 |
my $analyticfield = '773'; |
| 752 |
if ( $marcflavour eq 'UNIMARC' ) { |
752 |
if ( $marcflavour eq 'UNIMARC' ) { |
| 753 |
$analyticfield = '461'; |
753 |
$analyticfield = '462'; |
| 754 |
} |
754 |
} |
| 755 |
my $marc_record = $self->metadata->record; |
755 |
my $marc_record = $self->metadata->record; |
| 756 |
my @itemnumbers; |
756 |
my @itemnumbers; |
|
Lines 2131-2138
sub generate_marc_host_field {
Link Here
|
| 2131 |
} |
2131 |
} |
| 2132 |
} |
2132 |
} |
| 2133 |
|
2133 |
|
| 2134 |
# Construct 461 link field |
2134 |
# Construct 462 link field |
| 2135 |
$link_field = MARC::Field->new( 461, '0', ' ', @sfd ); |
2135 |
$link_field = MARC::Field->new( 462, '0', ' ', @sfd ); |
| 2136 |
} |
2136 |
} |
| 2137 |
|
2137 |
|
| 2138 |
return $link_field; |
2138 |
return $link_field; |
|
Lines 2157-2163
sub unlink_marc_host {
Link Here
|
| 2157 |
} |
2157 |
} |
| 2158 |
|
2158 |
|
| 2159 |
my $record = $self->metadata->record; |
2159 |
my $record = $self->metadata->record; |
| 2160 |
my $field_number = C4::Context->preference('marcflavour') eq 'MARC21' ? '773' : '461'; |
2160 |
my $field_number = C4::Context->preference('marcflavour') eq 'MARC21' ? '773' : '462'; |
| 2161 |
my @fields = $record->field($field_number); |
2161 |
my @fields = $record->field($field_number); |
| 2162 |
|
2162 |
|
| 2163 |
foreach my $field (@fields) { |
2163 |
foreach my $field (@fields) { |
|
Lines 2223-2229
sub link_marc_bundled_item {
Link Here
|
| 2223 |
} |
2223 |
} |
| 2224 |
|
2224 |
|
| 2225 |
my $record = $self->metadata->record; |
2225 |
my $record = $self->metadata->record; |
| 2226 |
my $tag = C4::Context->preference('marcflavour') eq 'UNIMARC' ? '462' : '774'; |
2226 |
my $tag = C4::Context->preference('marcflavour') eq 'UNIMARC' ? '464' : '774'; |
| 2227 |
|
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 |
|
Lines 2262-2268
sub unlink_marc_bundled_item {
Link Here
|
| 2262 |
} |
2262 |
} |
| 2263 |
|
2263 |
|
| 2264 |
my $record = $self->metadata->record; |
2264 |
my $record = $self->metadata->record; |
| 2265 |
my $field_number = C4::Context->preference('marcflavour') eq 'MARC21' ? '774' : '462'; |
2265 |
my $field_number = C4::Context->preference('marcflavour') eq 'MARC21' ? '774' : '464'; |
| 2266 |
my @fields = $record->field($field_number); |
2266 |
my @fields = $record->field($field_number); |
| 2267 |
|
2267 |
|
| 2268 |
foreach my $field (@fields) { |
2268 |
foreach my $field (@fields) { |
| 2269 |
- |
|
|