aboutsummaryrefslogtreecommitdiffstats
path: root/perllib
diff options
context:
space:
mode:
Diffstat (limited to 'perllib')
-rw-r--r--perllib/FixMyStreet/SendReport/Open311.pm1
-rw-r--r--perllib/Open311.pm1
2 files changed, 1 insertions, 1 deletions
diff --git a/perllib/FixMyStreet/SendReport/Open311.pm b/perllib/FixMyStreet/SendReport/Open311.pm
index 804e876ee..5cde6faed 100644
--- a/perllib/FixMyStreet/SendReport/Open311.pm
+++ b/perllib/FixMyStreet/SendReport/Open311.pm
@@ -41,6 +41,7 @@ sub send {
push @$extra, { name => 'public_anonymity_required', value => $row->anonymous ? 'TRUE' : 'FALSE' };
push @$extra, { name => 'email_alerts_requested', value => 'FALSE' }; # always false as can never request them
push @$extra, { name => 'requested_datetime', value => $row->confirmed };
+ push @$extra, { name => 'email', value => $row->user->email };
$row->extra( $extra );
}
diff --git a/perllib/Open311.pm b/perllib/Open311.pm
index 23208df1b..4440d386e 100644
--- a/perllib/Open311.pm
+++ b/perllib/Open311.pm
@@ -104,7 +104,6 @@ sub _populate_service_request_params {
my $attr_name = $attr->{name};
if ( $attr_name eq 'first_name' || $attr_name eq 'last_name' ) {
$params->{$attr_name} = $attr->{value} if $attr->{value};
- next;
}
$attr_name =~ s/fms_extra_//;
my $name = sprintf( 'attribute[%s]', $attr_name );