perllib/FixMyStreet/Cobrand/EastSussex.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
28
29
30
31
32

package FixMyStreet::Cobrand::EastSussex;
use parent 'FixMyStreet::Cobrand::UK';

use strict;
use warnings;

sub council_area_id { return 2224; }

sub open311_extra_data {
    my ($self, $row, $h, $contact) = @_;

    $h->{es_original_detail} = $row->detail;

    my $fields = $contact->get_extra_fields;
    my $text = '';
    for my $field ( @$fields ) {
        if (($field->{variable} || '') eq 'true' && !$field->{automated}) {
            my $q = $row->get_extra_field_value( $field->{code} ) || '';
            $text .= "\n\n" . $field->{description} . "\n" . $q;
        }
    }
    $row->detail($row->detail . $text);
    return (undef, ['sect_label', 'road_name', 'area_name']);
}

sub open311_post_send {
    my ($self, $row, $h, $contact) = @_;

    $row->detail($h->{es_original_detail});
}

1;