Changeset 1641 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql

Timestamp:

01/19/16 11:14:30 (8 years ago)

Author:

nanardon

Message:

Add web call for password reset

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/User.pm (modified) (2 diffs)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/User.pm

@@ -1561 +1561 @@
             $self->id,
         );
+        return 1;
+    } else {
+        return;
     }
+
 }
 
@@ -1587 +1591 @@
 }
 
+=head2 DeletePasswordId($id) 
+
+Delete password reset C<$id> and all expired request
+
+=cut
+
+sub DeletePasswordId {
+    my ($self, $id) = @_;
+
+    my $sth = $self->base->db->prepare_cached(q{
+        DELETE FROM passwordreset WHERE
+        "user" = ? AND (id = ? or "create" < now() - '1 days'::interval)
+    });
+
+    $sth->execute($self->id, $id);
+}
+
 1;