Revision 542

Date:
2016/01/19 14:35:10
Author:
ahitrov
Revision Log:
Bug with credential post_init

Files:

Legend:

 
Added
 
Removed
 
Modified

  • utf8/plugins/users/lib/users/UserProfile.pm

     
    94 94 if ( ref $self->{credentials_available} eq 'HASH' ) {
    95 95 foreach my $main_field ( keys %{$self->{credentials_available}} ) {
    96 96 my $multi_field = $main_field.'s';
    97 unless ( $self->{$main_field} ) {
    97 unless ( $self->{$main_field} && ref $self->{$main_field} eq $CREDENTIAL_REVERSE{$main_field} ) {
    98 98 $self->{$main_field} = $self->{$multi_field}->[0];
    99 99 }
    100 100 }