diff options
Diffstat (limited to 'perllib/FixMyStreet/DB/Result/User.pm')
-rw-r--r-- | perllib/FixMyStreet/DB/Result/User.pm | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/perllib/FixMyStreet/DB/Result/User.pm b/perllib/FixMyStreet/DB/Result/User.pm index 099ec2349..d88de5e7d 100644 --- a/perllib/FixMyStreet/DB/Result/User.pm +++ b/perllib/FixMyStreet/DB/Result/User.pm @@ -32,30 +32,5 @@ __PACKAGE__->add_unique_constraint( "users_email_key", ["email"] ); # Created by DBIx::Class::Schema::Loader v0.07009 @ 2011-03-03 10:05:03 # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:4dpBN1I88nB1BYtHT/AfKA -=head2 create_confirm_token - - $token = $user->create_confirm_token(); - -Create a token that can be emailed to the user. When it is returned it can be -used to confirm that the email address works. - -See also the ::ResultSet::User method 'confirm_user_from_token'. - -=cut - -sub create_confirm_token { - my $self = shift; - - my $token_rs = $self->result_source->schema->resultset('Token'); - - my $token_obj = $token_rs->create( - { - scope => 'user_confirm', # - data => { email => $self->email } - } - ); - - return $token_obj->token; -} 1; |