Lines 929-935
sub _clean_search_term {
Link Here
|
929 |
$term =~ s/=/:/g; |
929 |
$term =~ s/=/:/g; |
930 |
|
930 |
|
931 |
$term = $self->_convert_index_strings_freeform($term); |
931 |
$term = $self->_convert_index_strings_freeform($term); |
932 |
$term =~ s/[{}]/"/g; |
|
|
933 |
|
932 |
|
934 |
# Remove unbalanced quotes |
933 |
# Remove unbalanced quotes |
935 |
my $unquoted = $term; |
934 |
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/(?<!\\)(?:[\\]{2})*([\{\}\[\]])$lookahead/\\$1/g; |
954 |
return $term; |
955 |
return $term; |
955 |
} |
956 |
} |
956 |
|
957 |
|
957 |
- |
|
|