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

(-)a/C4/AuthoritiesMarc.pm (-6 / +6 lines)
Lines 274-281 sub SearchAuthorities { Link Here
274
        my %newline;
274
        my %newline;
275
        $newline{authid} = $authid;
275
        $newline{authid} = $authid;
276
        if ( !$skipmetadata ) {
276
        if ( !$skipmetadata ) {
277
            my $summary =
278
              BuildSummary( $authrecord, $authid, $authtypecode );
279
            my $query_auth_tag =
277
            my $query_auth_tag =
280
"SELECT auth_tag_to_report FROM auth_types WHERE authtypecode=?";
278
"SELECT auth_tag_to_report FROM auth_types WHERE authtypecode=?";
281
            my $sth = $dbh->prepare($query_auth_tag);
279
            my $sth = $dbh->prepare($query_auth_tag);
Lines 284-298 sub SearchAuthorities { Link Here
284
            my $reported_tag;
282
            my $reported_tag;
285
            my $mainentry = $authrecord->field($auth_tag_to_report);
283
            my $mainentry = $authrecord->field($auth_tag_to_report);
286
            if ($mainentry) {
284
            if ($mainentry) {
287
288
                foreach ( $mainentry->subfields() ) {
285
                foreach ( $mainentry->subfields() ) {
289
                    $reported_tag .= '$' . $_->[0] . $_->[1];
286
                    $reported_tag .= '$' . $_->[0] . $_->[1];
290
                }
287
                }
291
            }
288
            }
292
            my $thisauthtype = GetAuthType(GetAuthTypeCode($authid));
289
            my $thisauthtypecode = GetAuthTypeCode($authid);
290
            my $thisauthtype = GetAuthType($thisauthtypecode);
293
            unless (defined $thisauthtype) {
291
            unless (defined $thisauthtype) {
294
                $thisauthtype = GetAuthType($authtypecode) if $authtypecode;
292
                $thisauthtypecode = $authtypecode;
293
                $thisauthtype = GetAuthType($authtypecode);
295
            }
294
            }
295
            my $summary = BuildSummary( $authrecord, $authid, $thisauthtypecode );
296
296
            $newline{authtype}     = defined($thisauthtype) ?
297
            $newline{authtype}     = defined($thisauthtype) ?
297
                                        $thisauthtype->{'authtypetext'} : '';
298
                                        $thisauthtype->{'authtypetext'} : '';
298
            $newline{summary}      = $summary;
299
            $newline{summary}      = $summary;
299
- 

Return to bug 7442