1 files changed, 7 insertions, 0 deletions
diff --git a/perllib/FixMyStreet/DB/Result/User.pm b/perllib/FixMyStreet/DB/Result/User.pm
index 4da9ef83a..296cf997d 100644
--- a/perllib/FixMyStreet/DB/Result/User.pm
+++ b/perllib/FixMyStreet/DB/Result/User.pm
@@ -147,6 +147,13 @@ sub username {
     return $self->phone_display if $self->phone_verified;
 }
 
+sub phone_display {
+    my $self = shift;
+    return $self->phone unless $self->phone;
+    my $parsed = FixMyStreet::SMS->parse_username($self->phone);
+    return $parsed->{phone} ? $parsed->{phone}->format : $self->phone;
+}
+
 sub latest_anonymity {
     my $self = shift;
     my $p = $self->problems->search(undef, { order_by => { -desc => 'id' } } )->first;