Lines 72-77
if ( $op eq "do_search" ) {
Link Here
|
72 |
my $marcflavour = C4::Context->preference('marcflavour'); |
72 |
my $marcflavour = C4::Context->preference('marcflavour'); |
73 |
my $biblio_tag = substr( $index, 4, 3 ); |
73 |
my $biblio_tag = substr( $index, 4, 3 ); |
74 |
if ( $marcflavour eq 'MARC21' ) { |
74 |
if ( $marcflavour eq 'MARC21' ) { |
|
|
75 |
|
76 |
# Heading use-main or added entry = 100, 110, 111, 130, 240, 700, 710, 711, 730 |
77 |
# Heading use-subject added entry = 600, 610, 611 ... |
78 |
# Heading use-series added entry = 440(?), 800, 810, 811, 830 |
75 |
my $heading_use_search_field = |
79 |
my $heading_use_search_field = |
76 |
$biblio_tag =~ /^[127]/ ? 'Heading-use-main-or-added-entry' |
80 |
$biblio_tag =~ /^[127]/ ? 'Heading-use-main-or-added-entry' |
77 |
: $biblio_tag =~ /^6/ ? 'Heading-use-subject-added-entry' |
81 |
: $biblio_tag =~ /^6/ ? 'Heading-use-subject-added-entry' |