+ push @id_clauses, "id = '$key'", "Subject LIKE '$key'";
+ }
+
+ # if it's quoted string then search it "as is" in subject or fulltext
+ elsif ( $key =~ /^(fulltext:)?($re_delim)$/io ) {
+ if ( $1 ) {
+ push @tql_clauses, "Content LIKE $2";
+ } else {
+ push @tql_clauses, "Subject LIKE $2";
+ }
+ }
+
+ elsif ( $key =~ /^fulltext:(.*?)$/i ) {
+ $key = $1;
+ $key =~ s/['\\].*//g;
+ push @tql_clauses, "Content LIKE '$key'";
+