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

(-)a/C4/AuthoritiesMarc.pm (-7 / +9 lines)
Lines 321-333 sub SearchAuthorities { Link Here
321
            if ( C4::Context->preference('ShowHeadingUse') ) {
321
            if ( C4::Context->preference('ShowHeadingUse') ) {
322
                # checking valid heading use
322
                # checking valid heading use
323
                my $f008 = $authrecord->field('008');
323
                my $f008 = $authrecord->field('008');
324
                my $pos14to16 = substr( $f008->data, 14, 3 );
324
                if ( $f008 ) {
325
                my $main = substr( $pos14to16, 0, 1 );
325
                    my $pos14to16 = substr( $f008->data, 14, 3 );
326
                $newline{main} = 1 if $main eq 'a';
326
                    my $main = substr( $pos14to16, 0, 1 );
327
                my $subject = substr( $pos14to16, 1, 1);
327
                    $newline{main} = 1 if $main eq 'a';
328
                $newline{subject} = 1 if $subject eq 'a';
328
                    my $subject = substr( $pos14to16, 1, 1);
329
                my $series = substr( $pos14to16, 2, 1 );
329
                    $newline{subject} = 1 if $subject eq 'a';
330
                $newline{series} = 1 if $series eq 'a';
330
                    my $series = substr( $pos14to16, 2, 1 );
331
                    $newline{series} = 1 if $series eq 'a';
332
                }
331
            }
333
            }
332
334
333
            $newline{authtype}     = defined($thisauthtype) ?
335
            $newline{authtype}     = defined($thisauthtype) ?
(-)a/Koha/SearchEngine/Elasticsearch/Search.pm (-8 / +9 lines)
Lines 249-261 sub search_auth_compat { Link Here
249
            if ( C4::Context->preference('ShowHeadingUse') ) {
249
            if ( C4::Context->preference('ShowHeadingUse') ) {
250
                # checking valid heading use
250
                # checking valid heading use
251
                my $f008 = $marc->field('008');
251
                my $f008 = $marc->field('008');
252
                my $pos14to16 = substr( $f008->data, 14, 3 );
252
                if ( $f008 ) {
253
                my $main = substr( $pos14to16, 0, 1 );
253
                    my $pos14to16 = substr( $f008->data, 14, 3 );
254
                $result{main} = 1 if $main eq 'a';
254
                    my $main = substr( $pos14to16, 0, 1 );
255
                my $subject = substr( $pos14to16, 1, 1);
255
                    $result{main} = 1 if $main eq 'a';
256
                $result{subject} = 1 if $subject eq 'a';
256
                    my $subject = substr( $pos14to16, 1, 1);
257
                my $series = substr( $pos14to16, 2, 1 );
257
                    $result{subject} = 1 if $subject eq 'a';
258
                $result{series} = 1 if $series eq 'a';
258
                    my $series = substr( $pos14to16, 2, 1 );
259
                    $result{series} = 1 if $series eq 'a';
260
                }
259
            }
261
            }
260
262
261
            # Reimplementing BuildSummary is out of scope because it'll be hard
263
            # Reimplementing BuildSummary is out of scope because it'll be hard
262
- 

Return to bug 33348