|
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 391-401
unless (@servers) {
Link Here
|
| 391 |
} |
392 |
} |
| 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 = map uri_unescape($_), $cgi->param('op'); |
| 395 |
|
396 |
|
| 396 |
# indexes are query qualifiers, like 'title', 'author', etc. They |
397 |
# indexes are query qualifiers, like 'title', 'author', etc. They |
| 397 |
# can be single or multiple parameters separated by comma: kw,right-Truncation |
398 |
# can be single or multiple parameters separated by comma: kw,right-Truncation |
| 398 |
my @indexes = $cgi->param('idx'); |
399 |
my @indexes = map uri_unescape($_), $cgi->param('idx'); |
| 399 |
|
400 |
|
| 400 |
# if a simple index (only one) display the index used in the top search box |
401 |
# if a simple index (only one) display the index used in the top search box |
| 401 |
if ($indexes[0] && (!$indexes[1] || $params->{'scan'})) { |
402 |
if ($indexes[0] && (!$indexes[1] || $params->{'scan'})) { |
|
Lines 404-415
if ($indexes[0] && (!$indexes[1] || $params->{'scan'})) {
Link Here
|
| 404 |
$template->param($idx => 1); |
405 |
$template->param($idx => 1); |
| 405 |
} |
406 |
} |
| 406 |
|
407 |
|
| 407 |
|
|
|
| 408 |
# an operand can be a single term, a phrase, or a complete ccl query |
408 |
# an operand can be a single term, a phrase, or a complete ccl query |
| 409 |
my @operands = $cgi->param('q'); |
409 |
my @operands = map uri_unescape($_), $cgi->param('q'); |
| 410 |
|
410 |
|
| 411 |
# limits are use to limit to results to a pre-defined category such as branch or language |
411 |
# limits are use to limit to results to a pre-defined category such as branch or language |
| 412 |
my @limits = $cgi->param('limit'); |
412 |
my @limits = map uri_unescape($_), $cgi->param('limit'); |
| 413 |
|
413 |
|
| 414 |
if($params->{'multibranchlimit'}) { |
414 |
if($params->{'multibranchlimit'}) { |
| 415 |
my $multibranch = '('.join( " or ", map { "branch: $_ " } @{ GetBranchesInCategory( $params->{'multibranchlimit'} ) } ).')'; |
415 |
my $multibranch = '('.join( " or ", map { "branch: $_ " } @{ GetBranchesInCategory( $params->{'multibranchlimit'} ) } ).')'; |
| 416 |
- |
|
|