|
Lines 246-251
sub search_auth_compat {
Link Here
|
| 246 |
$result{authtype} = $authtype ? $authtype->authtypetext : $authtypecode; |
246 |
$result{authtype} = $authtype ? $authtype->authtypetext : $authtypecode; |
| 247 |
$result{reported_tag} = $reported_tag; |
247 |
$result{reported_tag} = $reported_tag; |
| 248 |
|
248 |
|
|
|
249 |
if ( C4::Context->preference('ShowHeadingUse') ) { |
| 250 |
# checking valid heading use |
| 251 |
my $f008 = $marc->field('008'); |
| 252 |
my $pos14to16 = substr( $f008->data, 14, 3 ); |
| 253 |
my $main = substr( $pos14to16, 0, 1 ); |
| 254 |
$result{main} = 1 if $main eq 'a'; |
| 255 |
my $subject = substr( $pos14to16, 1, 1); |
| 256 |
$result{subject} = 1 if $subject eq 'a'; |
| 257 |
my $series = substr( $pos14to16, 2, 1 ); |
| 258 |
$result{series} = 1 if $series eq 'a'; |
| 259 |
} |
| 260 |
|
| 249 |
# Reimplementing BuildSummary is out of scope because it'll be hard |
261 |
# Reimplementing BuildSummary is out of scope because it'll be hard |
| 250 |
$result{summary} = |
262 |
$result{summary} = |
| 251 |
C4::AuthoritiesMarc::BuildSummary( $marc, $result{authid}, |
263 |
C4::AuthoritiesMarc::BuildSummary( $marc, $result{authid}, |
| 252 |
- |
|
|