|
Lines 148-153
use C4::Languages qw(getAllLanguages);
Link Here
|
| 148 |
use C4::Koha; |
148 |
use C4::Koha; |
| 149 |
use C4::Members qw(GetMember); |
149 |
use C4::Members qw(GetMember); |
| 150 |
use C4::VirtualShelves; |
150 |
use C4::VirtualShelves; |
|
|
151 |
use URI::Escape; |
| 151 |
use POSIX qw(ceil floor); |
152 |
use POSIX qw(ceil floor); |
| 152 |
use C4::Branch; # GetBranches |
153 |
use C4::Branch; # GetBranches |
| 153 |
|
154 |
|
|
Lines 392-401
unless (@servers) {
Link Here
|
| 392 |
# operators include boolean and proximity operators and are used |
393 |
# operators include boolean and proximity operators and are used |
| 393 |
# to evaluate multiple operands |
394 |
# to evaluate multiple operands |
| 394 |
my @operators = $cgi->param('op'); |
395 |
my @operators = $cgi->param('op'); |
|
|
396 |
@operators = map { uri_unescape($_) } @operators; |
| 395 |
|
397 |
|
| 396 |
# indexes are query qualifiers, like 'title', 'author', etc. They |
398 |
# indexes are query qualifiers, like 'title', 'author', etc. They |
| 397 |
# can be single or multiple parameters separated by comma: kw,right-Truncation |
399 |
# can be single or multiple parameters separated by comma: kw,right-Truncation |
| 398 |
my @indexes = $cgi->param('idx'); |
400 |
my @indexes = $cgi->param('idx'); |
|
|
401 |
@indexes = map { uri_unescape($_) } @indexes; |
| 399 |
|
402 |
|
| 400 |
# if a simple index (only one) display the index used in the top search box |
403 |
# if a simple index (only one) display the index used in the top search box |
| 401 |
if ($indexes[0] && (!$indexes[1] || $params->{'scan'})) { |
404 |
if ($indexes[0] && (!$indexes[1] || $params->{'scan'})) { |
|
Lines 407-415
if ($indexes[0] && (!$indexes[1] || $params->{'scan'})) {
Link Here
|
| 407 |
|
410 |
|
| 408 |
# an operand can be a single term, a phrase, or a complete ccl query |
411 |
# an operand can be a single term, a phrase, or a complete ccl query |
| 409 |
my @operands = $cgi->param('q'); |
412 |
my @operands = $cgi->param('q'); |
|
|
413 |
@operands = map { uri_unescape($_) } @operands; |
| 410 |
|
414 |
|
| 411 |
# limits are use to limit to results to a pre-defined category such as branch or language |
415 |
# limits are use to limit to results to a pre-defined category such as branch or language |
| 412 |
my @limits = $cgi->param('limit'); |
416 |
my @limits = $cgi->param('limit'); |
|
|
417 |
@limits = map { uri_unescape($_) } @limits; |
| 413 |
|
418 |
|
| 414 |
if($params->{'multibranchlimit'}) { |
419 |
if($params->{'multibranchlimit'}) { |
| 415 |
my $multibranch = '('.join( " or ", map { "branch: $_ " } @{ GetBranchesInCategory( $params->{'multibranchlimit'} ) } ).')'; |
420 |
my $multibranch = '('.join( " or ", map { "branch: $_ " } @{ GetBranchesInCategory( $params->{'multibranchlimit'} ) } ).')'; |
| 416 |
- |
|
|