|
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 951-956
sub _clean_search_term {
Link Here
|
| 951 |
# and correctly ignore unevenly backslashed: |
950 |
# and correctly ignore unevenly backslashed: |
| 952 |
$term =~ s/((?<!\\)(?:[\\]{2})*:[^:\s]+(?<!\\)(?:[\\]{2})*)(?=:)/$1\\/g; |
951 |
$term =~ s/((?<!\\)(?:[\\]{2})*:[^:\s]+(?<!\\)(?:[\\]{2})*)(?=:)/$1\\/g; |
| 953 |
|
952 |
|
|
|
953 |
# screen all brackets with backslash |
| 954 |
$term =~ s/([\{\}\[\]])$lookahead/\\$1/g; |
| 955 |
|
| 954 |
return $term; |
956 |
return $term; |
| 955 |
} |
957 |
} |
| 956 |
|
958 |
|
| 957 |
- |
|
|