Changeset 1767 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts
- Timestamp:
- 05/16/16 14:03:43 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/User.pm
r1757 r1767 1679 1679 # Storing as old password 1680 1680 my @olds = sort { $b cmp $a } $self->_get_attributes('oldPassword'); 1681 my $old = $self->get_field('userPassword'); 1682 my $now = DateTime->now; 1683 unshift(@olds, $now->iso8601 . ';' . $old); 1684 $self->set_fields('oldPassword', [ grep { $_ } @olds[0 .. 14] ]); 1681 if (my $old = $self->get_field('userPassword')) { 1682 my $now = DateTime->now; 1683 unshift(@olds, $now->iso8601 . ';' . $old); 1684 $self->set_fields('oldPassword', [ grep { $_ } @olds[0 .. 14] ]); 1685 } 1685 1686 1686 1687 my @salt_char = (('a' .. 'z'), ('A' .. 'Z'), (0 .. 9), '/', '.');
Note: See TracChangeset
for help on using the changeset viewer.