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

(-)a/Koha/Biblio.pm (-7 / +6 lines)
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
- 

Return to bug 41535