View | Details | Raw Unified | Return to bug 35405
Collapse All | Expand All

(-)a/C4/AuthoritiesMarc.pm (-6 / +6 lines)
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
- 

Return to bug 35405