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

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

use Moo;

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 => $_->text, name => $_->title };
        $out->{state} = $_->state if $_->state;
        $out;
    } @ts;
}

1;