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