|
Lines 1848-1854
sub generate_marc_host_field {
Link Here
|
| 1848 |
|
1848 |
|
| 1849 |
# Control number |
1849 |
# Control number |
| 1850 |
if ( $host_field = $marc_host->field('001') ) { |
1850 |
if ( $host_field = $marc_host->field('001') ) { |
| 1851 |
$sfd{w} = $host_field->data(),; |
1851 |
$sfd{w} = $host_field->data(); |
| 1852 |
} |
1852 |
} |
| 1853 |
|
1853 |
|
| 1854 |
# Control number identifier |
1854 |
# Control number identifier |
|
Lines 1923-1929
sub generate_marc_host_field {
Link Here
|
| 1923 |
} |
1923 |
} |
| 1924 |
} |
1924 |
} |
| 1925 |
if ( $host_field = $marc_host->field('001') ) { |
1925 |
if ( $host_field = $marc_host->field('001') ) { |
| 1926 |
$sfd{0} = $host_field->data(),; |
1926 |
$sfd{0} = $host_field->data(); |
| 1927 |
} |
1927 |
} |
| 1928 |
$link_field = MARC::Field->new( 461, '0', ' ', %sfd ); |
1928 |
$link_field = MARC::Field->new( 461, '0', ' ', %sfd ); |
| 1929 |
} |
1929 |
} |
| 1930 |
- |
|
|