Lines 986-991
sub clean_search_term {
Link Here
|
986 |
$term =~ s/((?<!\\)(?:[\\]{2})*:[^:\s]+(?<!\\)(?:[\\]{2})*)(?=:)/$1\\/g; |
986 |
$term =~ s/((?<!\\)(?:[\\]{2})*:[^:\s]+(?<!\\)(?:[\\]{2})*)(?=:)/$1\\/g; |
987 |
|
987 |
|
988 |
# screen all exclamation signs that either are the last symbol or have white space after them |
988 |
# screen all exclamation signs that either are the last symbol or have white space after them |
|
|
989 |
# or are followed by close parentheses |
989 |
$term =~ s/(?:[\s\\]*!\s*)+(\s|$|\))/$1/g; |
990 |
$term =~ s/(?:[\s\\]*!\s*)+(\s|$|\))/$1/g; |
990 |
|
991 |
|
991 |
# screen all brackets with backslash |
992 |
# screen all brackets with backslash |