Allow users to update their email address.

1 files changed, 24 insertions, 3 deletions

diff --git a/perllib/FixMyStreet/DB/Result/User.pm b/perllib/FixMyStreet/DB/Result/User.pm
index 054be3644..7356969d1 100644
--- a/perllib/FixMyStreet/DB/Result/User.pm
+++ b/perllib/FixMyStreet/DB/Result/User.pm
@@ -239,9 +239,30 @@ sub has_permission_to {
     return $permission ? 1 : undef;
 }
 
-sub print {
-    my $self = shift;
-    return '[' . (join '-', @_) . ']';
+sub adopt {
+    my ($self, $other) = @_;
+
+    return if $self->id == $other->id;
+
+    # Move most things from $other to $self
+    foreach (qw(Problem Comment Alert AdminLog )) {
+        $self->result_source->schema->resultset($_)
+            ->search({ user_id => $other->id })
+            ->update({ user_id => $self->id });
+    }
+
+    # It's possible the user permissions for the other user exist, so
+    # try updating, and then delete anyway.
+    foreach ($self->result_source->schema->resultset("UserBodyPermission")
+                ->search({ user_id => $other->id })->all) {
+        eval {
+            $_->update({ user_id => $self->id });
+        };
+        $_->delete if $@;
+    }
+
+    # Delete the now empty user
+    $other->delete;
 }
 
 1;