|
Lines 49-62
if ( $auth_status ne "ok" ) {
Link Here
|
| 49 |
exit 0; |
49 |
exit 0; |
| 50 |
} |
50 |
} |
| 51 |
|
51 |
|
| 52 |
my @value = $query->multi_param('term'); |
52 |
my @value = $query->multi_param('term'); |
| 53 |
my $searchtype = $query->param('querytype'); |
53 |
my $searchtype = $query->param('querytype'); |
| 54 |
my @marclist = ($searchtype); |
54 |
my @marclist = ($searchtype); |
|
|
55 |
my $index = $query->param('index'); |
| 55 |
my $authtypecode = $query->param('authtypecode'); |
56 |
my $authtypecode = $query->param('authtypecode'); |
| 56 |
my @and_or = $query->multi_param('and_or'); |
57 |
my @and_or = $query->multi_param('and_or'); |
| 57 |
my @excluding = $query->multi_param('excluding'); |
58 |
my @excluding = $query->multi_param('excluding'); |
| 58 |
my @operator = $query->multi_param('operator'); |
59 |
my @operator = $query->multi_param('operator'); |
| 59 |
my $orderby = $query->param('orderby'); |
60 |
my $orderby = $query->param('orderby'); |
|
|
61 |
|
| 62 |
if ( C4::Context->preference('ConsiderHeadingUse') ) { |
| 63 |
my $marcflavour = C4::Context->preference('marcflavour'); |
| 64 |
my $biblio_tag = substr( $index, 4, 3 ); |
| 65 |
if ( $marcflavour eq 'MARC21' ) { |
| 66 |
my $heading_use_search_field = |
| 67 |
$biblio_tag =~ /^[127]/ ? 'Heading-use-main-or-added-entry' |
| 68 |
: $biblio_tag =~ /^6/ ? 'Heading-use-subject-added-entry' |
| 69 |
: $biblio_tag =~ /^[48]/ ? 'Heading-use-series-added-entry' |
| 70 |
: undef; |
| 71 |
if ($heading_use_search_field) { |
| 72 |
push @marclist, $heading_use_search_field; |
| 73 |
push @and_or, 'and'; |
| 74 |
push @excluding, ''; |
| 75 |
push @operator, 'is'; |
| 76 |
push @value, 'a'; |
| 77 |
} |
| 78 |
} |
| 79 |
} |
| 60 |
|
80 |
|
| 61 |
my $resultsperpage = 50; |
81 |
my $resultsperpage = 50; |
| 62 |
my $startfrom = 0; |
82 |
my $startfrom = 0; |