Attachment #150482 for bug #33348

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

Lines 321-333 sub SearchAuthorities { Link Here

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




            if ( C4::Context->preference('ShowHeadingUse') ) {
                # checking valid heading use
                my $f008 = $marc->field('008');
                if ( $f008 ) {
                    my $pos14to16 = substr( $f008->data, 14, 3 );
                    my $main = substr( $pos14to16, 0, 1 );
                    $result{main} = 1 if $main eq 'a';
                    my $subject = substr( $pos14to16, 1, 1);
                    $result{subject} = 1 if $subject eq 'a';
                    my $series = substr( $pos14to16, 2, 1 );
                    $result{series} = 1 if $series eq 'a';
                }
            }

            # Reimplementing BuildSummary is out of scope because it'll be hard
- 

Return to bug 33348

Lines 249-261 sub search_auth_compat { Link Here

(-)a/Koha/SearchEngine/Elasticsearch/Search.pm (-8 / +9 lines)
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	-