Changeset 1767 for trunk/LATMOS-Accounts

Timestamp:

05/16/16 14:03:43 (8 years ago)

Author:

nanardon

Message:

Don't record old Password if current is unset

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/User.pm (modified) (1 diff)

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

@@ -1679 +1679 @@
         # Storing as old password
         my @olds = sort { $b cmp $a } $self->_get_attributes('oldPassword');
-        my $old = $self->get_field('userPassword');
-        my $now = DateTime->now; 
-        unshift(@olds, $now->iso8601 . ';' . $old);
-        $self->set_fields('oldPassword', [ grep { $_ } @olds[0 .. 14] ]);
+        if (my $old = $self->get_field('userPassword')) {
+            my $now = DateTime->now; 
+            unshift(@olds, $now->iso8601 . ';' . $old);
+            $self->set_fields('oldPassword', [ grep { $_ } @olds[0 .. 14] ]);
+        }
 
         my @salt_char = (('a' .. 'z'), ('A' .. 'Z'), (0 .. 9), '/', '.');