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

(-)a/C4/Biblio.pm (-11 / +10 lines)
Lines 2049-2067 sub PrepHostMarcField { Link Here
2049
        my $issn = $hostrecord->subfield( '022', 'a' );
2049
        my $issn = $hostrecord->subfield( '022', 'a' );
2050
        my $isbn = $hostrecord->subfield( '020', 'a' );
2050
        my $isbn = $hostrecord->subfield( '020', 'a' );
2051
2051
2052
        $hostmarcfield = MARC::Field->new(
2052
        my @subfields = (
2053
            773, '0', '',
2054
            '0' => $hostbiblionumber,
2053
            '0' => $hostbiblionumber,
2055
            '9' => $hostitemnumber,
2054
            '9' => $hostitemnumber,
2056
            'a' => $mainentry,
2057
            'b' => $ed,
2058
            'd' => $qualinfo,
2059
            'o' => $barcode,
2060
            't' => $title,
2061
            'w' => $recctrlno,
2062
            'x' => $issn,
2063
            'z' => $isbn
2064
        );
2055
        );
2056
        push @subfields, 'a', $mainentry if $mainentry;
2057
        push @subfields, 'b', $ed        if $ed;
2058
        push @subfields, 'd', $qualinfo  if $qualinfo;
2059
        push @subfields, 'o', $barcode   if $barcode;
2060
        push @subfields, 't', $title     if $title;
2061
        push @subfields, 'w', $recctrlno if $recctrlno;
2062
        push @subfields, 'x', $issn      if $issn;
2063
        push @subfields, 'z', $isbn      if $isbn;
2064
        $hostmarcfield = MARC::Field->new( 773, '0', ' ', @subfields );
2065
    } elsif ( $marcflavour eq "UNIMARC" ) {
2065
    } elsif ( $marcflavour eq "UNIMARC" ) {
2066
        $hostmarcfield = MARC::Field->new(
2066
        $hostmarcfield = MARC::Field->new(
2067
            461, '', '',
2067
            461, '', '',
2068
- 

Return to bug 41931