Lines 297-308
sub SearchAuthorities {
Link Here
|
297 |
my %newline; |
297 |
my %newline; |
298 |
$newline{authid} = $authid; |
298 |
$newline{authid} = $authid; |
299 |
if ( !$skipmetadata ) { |
299 |
if ( !$skipmetadata ) { |
300 |
my $auth_tag_to_report; |
300 |
my ( $auth_tag_to_report, $reported_tag, $mainentry ); |
301 |
$auth_tag_to_report = Koha::Authority::Types->find($authtypecode)->auth_tag_to_report |
301 |
if ( $authtypecode ) { |
302 |
if $authtypecode; |
302 |
$auth_tag_to_report = Koha::Authority::Types->find($authtypecode)->auth_tag_to_report; |
303 |
my $reported_tag; |
303 |
$mainentry = $authrecord->field($auth_tag_to_report) if $auth_tag_to_report; |
304 |
my $mainentry = $authrecord->field($auth_tag_to_report); |
304 |
} |
305 |
if ($mainentry) { |
305 |
if ($mainentry) { |
|
|
306 |
$reported_tag = q{}; |
306 |
foreach ( $mainentry->subfields() ) { |
307 |
foreach ( $mainentry->subfields() ) { |
307 |
$reported_tag .= '$' . $_->[0] . $_->[1]; |
308 |
$reported_tag .= '$' . $_->[0] . $_->[1]; |
308 |
} |
309 |
} |
309 |
- |
|
|