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