diff options
| author | Struan Donald <struan@exo.org.uk> | 2012-07-10 21:05:43 +0100 |
|---|---|---|
| committer | Struan Donald <struan@exo.org.uk> | 2012-07-10 21:05:43 +0100 |
| commit | e9aa5cbe89f9e37e9adf4e36e2b3a987ebb9147e (patch) | |
| tree | e53ace192e6a9660c5f711d00eef8ec77d2adb98 /perllib/FixMyStreet/SendReport | |
| parent | 73da8428283e6830265f82af522d31c1321f3981 (diff) | |
improve spliting name into first and last names
Diffstat (limited to 'perllib/FixMyStreet/SendReport')
| -rw-r--r-- | perllib/FixMyStreet/SendReport/Open311.pm | 2 |
1 files changed, 1 insertions, 1 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 }; } |