Lines 930-936
sub _clean_search_term {
Link Here
|
930 |
$term =~ s/=/:/g; |
930 |
$term =~ s/=/:/g; |
931 |
|
931 |
|
932 |
$term = $self->_convert_index_strings_freeform($term); |
932 |
$term = $self->_convert_index_strings_freeform($term); |
933 |
$term =~ s/[{}]/"/g; |
|
|
934 |
|
933 |
|
935 |
# Remove unbalanced quotes |
934 |
# Remove unbalanced quotes |
936 |
my $unquoted = $term; |
935 |
my $unquoted = $term; |
Lines 952-957
sub _clean_search_term {
Link Here
|
952 |
# and correctly ignore unevenly backslashed: |
951 |
# and correctly ignore unevenly backslashed: |
953 |
$term =~ s/((?<!\\)(?:[\\]{2})*:[^:\s]+(?<!\\)(?:[\\]{2})*)(?=:)/$1\\/g; |
952 |
$term =~ s/((?<!\\)(?:[\\]{2})*:[^:\s]+(?<!\\)(?:[\\]{2})*)(?=:)/$1\\/g; |
954 |
|
953 |
|
|
|
954 |
|
955 |
# screen all brackets with backslash |
956 |
$term =~ s/(?<!\\)(?:[\\]{2})*([\{\}\[\]])$lookahead/\\$1/g; |
955 |
return $term; |
957 |
return $term; |
956 |
} |
958 |
} |
957 |
|
959 |
|
958 |
- |
|
|