Lines 1806-1815
sub generate_marc_host_field {
Link Here
|
1806 |
} |
1806 |
} |
1807 |
|
1807 |
|
1808 |
# Publication |
1808 |
# Publication |
1809 |
if ( $host_field = $marc_host->field('260') ) { |
1809 |
my @publication_fields = $marc_host->field('264'); |
1810 |
my $s = $host_field->as_string('abc'); |
1810 |
@publication_fields = $marc_host->field('260') unless (@publication_fields); |
1811 |
if ($s) { |
1811 |
my $index = 0; |
1812 |
$sfd{d} = $s; |
1812 |
for my $host_field (@publication_fields) { |
|
|
1813 |
|
1814 |
# Use first entry unless we find a preferred indicator1 = 3 |
1815 |
if ( $index == 0 ) { |
1816 |
my $s = $host_field->as_string('abc'); |
1817 |
if ($s) { |
1818 |
$sfd{d} = $s; |
1819 |
} |
1820 |
$index++; |
1821 |
} |
1822 |
if ( $host_field->indicator(1) && ( $host_field->indicator(1) == 3 ) ) { |
1823 |
my $s = $host_field->as_string('abc'); |
1824 |
if ($s) { |
1825 |
$sfd{d} = $s; |
1826 |
} |
1827 |
last; |
1813 |
} |
1828 |
} |
1814 |
} |
1829 |
} |
1815 |
|
1830 |
|
Lines 1823-1829
sub generate_marc_host_field {
Link Here
|
1823 |
|
1838 |
|
1824 |
# Title |
1839 |
# Title |
1825 |
if ( $host_field = $marc_host->field('245') ) { |
1840 |
if ( $host_field = $marc_host->field('245') ) { |
1826 |
my $s = $host_field->as_string('ab'); |
1841 |
my $s = $host_field->as_string('abnp'); |
1827 |
if ($s) { |
1842 |
if ($s) { |
1828 |
$sfd{t} = $s; |
1843 |
$sfd{t} = $s; |
1829 |
} |
1844 |
} |
1830 |
- |
|
|