|
Lines 96-101
if ($authid) {
Link Here
|
| 96 |
|
96 |
|
| 97 |
push( @subfield_loop, { marc_subfield => 'w', marc_values => $relationship } ) if ( $relationship ); |
97 |
push( @subfield_loop, { marc_subfield => 'w', marc_values => $relationship } ) if ( $relationship ); |
| 98 |
|
98 |
|
|
|
99 |
# Copy the ISNI number over (should one exist) to subfield $o when linking |
| 100 |
# authorities with authorities in UNIMARC instances. This only applies to |
| 101 |
# the Personal Name, Corporate Body Name, and Family Name authority types. |
| 102 |
# |
| 103 |
# It's worth noting that the default MARC Authorities framework that ships |
| 104 |
# with UNIMARC Koha instances does *not* include a subfield $o for fields |
| 105 |
# 200 (Authorized Access Point - Personal Name), |
| 106 |
# 210 (Authorized Access Point - Corporate Body Name), and |
| 107 |
# 220 (Authorized Access Point - Family Name). |
| 108 |
# This is per the offical IFLA Manual, and effectively means we can save |
| 109 |
# the ISNI number in the @subfield_loop array without worrying about |
| 110 |
# overwriting any previous value that may exist. |
| 111 |
# |
| 112 |
# For more information, see the offical IFLA UNIMARC Authorities Format |
| 113 |
# Manual (online ed., 1.0.0, 2023), pp. 350, 363, 385. |
| 114 |
if ( C4::Context->preference('marcflavour') eq 'UNIMARC' ) { |
| 115 |
my $isnifield = $record->field('010'); |
| 116 |
my $isnisubfield = $isnifield->subfield('a') if defined $isnifield; |
| 117 |
my $isninumber = $isnisubfield |
| 118 |
if defined $isnisubfield && ( $auth_type->auth_tag_to_report =~ /^(200|210|220)$/ ); |
| 119 |
push( @subfield_loop, { marc_subfield => 'o', marc_values => $isninumber } ) if defined $isninumber; |
| 120 |
} |
| 121 |
|
| 99 |
my $controlled_ind = $auth->controlled_indicators({ record => $record, biblio_tag => $tag_number }); |
122 |
my $controlled_ind = $auth->controlled_indicators({ record => $record, biblio_tag => $tag_number }); |
| 100 |
$indicator1 = $controlled_ind->{ind1}; |
123 |
$indicator1 = $controlled_ind->{ind1}; |
| 101 |
$indicator2 = $controlled_ind->{ind2}; |
124 |
$indicator2 = $controlled_ind->{ind2}; |
| 102 |
- |
|
|