|
Lines 1944-1953
sub generate_marc_host_field {
Link Here
|
| 1944 |
} |
1944 |
} |
| 1945 |
|
1945 |
|
| 1946 |
# Publication |
1946 |
# Publication |
| 1947 |
if ( $host_field = $marc_host->field('260') ) { |
1947 |
my @publication_fields = $marc_host->field('264'); |
| 1948 |
my $s = $host_field->as_string('abc'); |
1948 |
@publication_fields = $marc_host->field('260') unless (@publication_fields); |
| 1949 |
if ($s) { |
1949 |
my $index = 0; |
| 1950 |
$sfd{d} = $s; |
1950 |
for my $host_field (@publication_fields) { |
|
|
1951 |
|
| 1952 |
# Use first entry unless we find a preferred indicator1 = 3 |
| 1953 |
if ( $index == 0 ) { |
| 1954 |
my $s = $host_field->as_string('abc'); |
| 1955 |
if ($s) { |
| 1956 |
$sfd{d} = $s; |
| 1957 |
} |
| 1958 |
$index++; |
| 1959 |
} |
| 1960 |
if ( $host_field->indicator(1) && ( $host_field->indicator(1) eq '3' ) ) { |
| 1961 |
my $s = $host_field->as_string('abc'); |
| 1962 |
if ($s) { |
| 1963 |
$sfd{d} = $s; |
| 1964 |
} |
| 1965 |
last; |
| 1951 |
} |
1966 |
} |
| 1952 |
} |
1967 |
} |
| 1953 |
|
1968 |
|
|
Lines 1961-1967
sub generate_marc_host_field {
Link Here
|
| 1961 |
|
1976 |
|
| 1962 |
# Title |
1977 |
# Title |
| 1963 |
if ( $host_field = $marc_host->field('245') ) { |
1978 |
if ( $host_field = $marc_host->field('245') ) { |
| 1964 |
my $s = $host_field->as_string('ab'); |
1979 |
my $s = $host_field->as_string('abnp'); |
| 1965 |
if ($s) { |
1980 |
if ($s) { |
| 1966 |
$sfd{t} = $s; |
1981 |
$sfd{t} = $s; |
| 1967 |
} |
1982 |
} |
| 1968 |
- |
|
|