Lines 250-255
sub search_auth_compat {
Link Here
|
250 |
$result{summary} = |
250 |
$result{summary} = |
251 |
C4::AuthoritiesMarc::BuildSummary( $marc, $result{authid}, |
251 |
C4::AuthoritiesMarc::BuildSummary( $marc, $result{authid}, |
252 |
$authtypecode ); |
252 |
$authtypecode ); |
|
|
253 |
if ( C4::Context->preference('ShowHeadingUse') ) { |
254 |
# checking valid heading use |
255 |
my $f008 = $marc->field('008'); |
256 |
my $pos14to16 = substr( $f008->data, 14, 3 ); |
257 |
my $main = substr( $pos14to16, 0, 1 ); |
258 |
$result{main} = 1 if $main eq 'a'; |
259 |
my $subject = substr( $pos14to16, 1, 1); |
260 |
$result{subject} = 1 if $subject eq 'a'; |
261 |
my $series = substr( $pos14to16, 2, 1 ); |
262 |
$result{series} = 1 if $series eq 'a'; |
263 |
} |
253 |
$result{used} = $self->count_auth_use($bib_searcher, $authid); |
264 |
$result{used} = $self->count_auth_use($bib_searcher, $authid); |
254 |
} |
265 |
} |
255 |
push @records, \%result; |
266 |
push @records, \%result; |
256 |
- |
|
|