|
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 |
# screen all brackets with backslash |
| 955 |
$term =~ s/(?<!\\)(?:[\\]{2})*([\{\}\[\]])$lookahead/\\$1/g; |
| 955 |
return $term; |
956 |
return $term; |
| 956 |
} |
957 |
} |
| 957 |
|
958 |
|
| 958 |
- |
|
|