perllib/FixMyStreet/DB/ResultSet/ResponseTemplate.pm


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

package FixMyStreet::DB::ResultSet::ResponseTemplate;
use base 'DBIx::Class::ResultSet';

use Moo;
use HTML::Entities;

with('FixMyStreet::Roles::ContactExtra');

sub join_table {
    return 'contact_response_templates';
}

sub name_column {
    'title';
}

sub map_extras {
    my ($rs, @ts) = @_;
    return map {
        my $out = { id => encode_entities($_->text), name => encode_entities($_->title) };
        $out->{state} = encode_entities($_->state) if $_->state;
        $out;
    } @ts;
}

1;