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