Changeset 2004

Timestamp:

04/28/17 10:54:46 (7 years ago)

Author:

nanardon

Message:

Properly identifie user changing password

File:

• trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Model/Accounts.pm (modified) (2 diffs)

trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Model/Accounts.pm

@@ -175 +175 @@
 
 sub ChangeUserPassword {
-    my ($self, $username, $password) = @_;
+    my ($self, $username, $password, $force) = @_;
 
     my $base = $self->db;
@@ -187 +187 @@
     # synchaccess do not manage connect() at time, opening a
     # backdoor then :\
-    foreach ($sync->bases) { $_->{_user} = undef }
+    foreach ($sync->bases) { $_->{_user} = $base->{_user} }
 
     my $suser = $sync->get_object_ifexists('user', $username);
     my $msg = $user->check_password($password);
-    if ($msg ne 'ok') {
+    if ($msg ne 'ok' && !$force) {
         return $msg . ', mot de passe inchangé';
     } elsif ($suser && $suser->_set_password($password)) {