diff options
| -rw-r--r-- | perllib/FixMyStreet/SendReport/Open311.pm | 2 | ||||
| -rw-r--r-- | perllib/Open311.pm | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/perllib/FixMyStreet/SendReport/Open311.pm b/perllib/FixMyStreet/SendReport/Open311.pm index ceb7a9f09..d00965195 100644 --- a/perllib/FixMyStreet/SendReport/Open311.pm +++ b/perllib/FixMyStreet/SendReport/Open311.pm @@ -58,7 +58,7 @@ sub send { # make sure we have last_name attribute present in row's extra, so # it is passed correctly to Bromley as attribute[] if ( $row->cobrand ne 'bromley' ) { - my ( $firstname, $lastname ) = ( $row->user->name =~ /(\w+)\s+(.+)/ ); + my ( $firstname, $lastname ) = ( $row->user->name =~ /(\w+)\.?\s+(.+)/ ); push @$extra, { name => 'last_name', value => $lastname }; } diff --git a/perllib/Open311.pm b/perllib/Open311.pm index e29971612..bd665ed3e 100644 --- a/perllib/Open311.pm +++ b/perllib/Open311.pm @@ -93,7 +93,7 @@ sub _populate_service_request_params { ); } - my ( $firstname, $lastname ) = ( $problem->user->name =~ /(\w+)\s+(.+)/ ); + my ( $firstname, $lastname ) = ( $problem->user->name =~ /(\w+)\.?\s+(.+)/ ); my $params = { email => $problem->user->email, @@ -263,7 +263,7 @@ sub _populate_service_request_update_params { my $comment = shift; my $name = $comment->name || $comment->user->name; - my ( $firstname, $lastname ) = ( $name =~ /(\w+)\s+(.+)/ ); + my ( $firstname, $lastname ) = ( $name =~ /(\w+)\.?\s+(.+)/ ); my $params = { update_id_ext => $comment->id, |