Changeset 2004 for trunk/LATMOS-Accounts-Web/lib/LATMOS
- Timestamp:
- 04/28/17 10:54:46 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Model/Accounts.pm
r2002 r2004 175 175 176 176 sub ChangeUserPassword { 177 my ($self, $username, $password ) = @_;177 my ($self, $username, $password, $force) = @_; 178 178 179 179 my $base = $self->db; … … 187 187 # synchaccess do not manage connect() at time, opening a 188 188 # backdoor then :\ 189 foreach ($sync->bases) { $_->{_user} = undef}189 foreach ($sync->bases) { $_->{_user} = $base->{_user} } 190 190 191 191 my $suser = $sync->get_object_ifexists('user', $username); 192 192 my $msg = $user->check_password($password); 193 if ($msg ne 'ok' ) {193 if ($msg ne 'ok' && !$force) { 194 194 return $msg . ', mot de passe inchangé'; 195 195 } elsif ($suser && $suser->_set_password($password)) {
Note: See TracChangeset
for help on using the changeset viewer.