diff options
Diffstat (limited to 'perllib')
-rw-r--r-- | perllib/FixMyStreet/Cobrand/Buckinghamshire.pm | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/perllib/FixMyStreet/Cobrand/Buckinghamshire.pm b/perllib/FixMyStreet/Cobrand/Buckinghamshire.pm index 5e9316709..ef5b53356 100644 --- a/perllib/FixMyStreet/Cobrand/Buckinghamshire.pm +++ b/perllib/FixMyStreet/Cobrand/Buckinghamshire.pm @@ -107,11 +107,17 @@ sub open311_post_send { # Check Open311 was successful return unless $row->external_id; - # For Flytipping, send an email also - return unless $row->category eq 'Flytipping'; + # For certain categories, send an email also + my $addresses = { + 'Flytipping' => [ join('@', 'illegaldumpingcosts', $self->admin_user_domain), "TfB" ], + 'Blocked drain' => [ join('@', 'floodmanagement', $self->admin_user_domain), "Flood Management" ], + 'Ditch issue' => [ join('@', 'floodmanagement', $self->admin_user_domain), "Flood Management" ], + 'Flooded subway' => [ join('@', 'floodmanagement', $self->admin_user_domain), "Flood Management" ], + }; + my $dest = $addresses->{$row->category}; + return unless $dest; - my $e = join('', 'illegaldumpingcosts', '@', $self->admin_user_domain); - my $sender = FixMyStreet::SendReport::Email->new( to => [ [ $e, 'TfB' ] ] ); + my $sender = FixMyStreet::SendReport::Email->new( to => [ $dest ] ); $sender->send($row, $h); } |