perllib/FixMyStreet/Roles/FullTextSearch.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

package FixMyStreet::Roles::FullTextSearch;

use Moo::Role;
use FixMyStreet;

requires 'text_search_columns';
requires 'text_search_nulls';

sub search_text {
    my ($rs, $query) = @_;
    my %nulls = map { $_ => 1 } $rs->text_search_nulls;
    my @cols = map {
        my $col = $rs->me($_);
        $nulls{$_} ? "coalesce($col, '')" : $col;
    } $rs->text_search_columns;
    my $vector = "translate(" . join(" || ' ' || ", @cols) . ", '/.', '  ')";
    my $config = FixMyStreet->config('DB_FULL_TEXT_SEARCH_CONFIG') || 'english';
    $rs->search(\[ "to_tsvector('$config', $vector) @@ plainto_tsquery('$config', ?)", $query ]);
}

1;