Revision 367
- Date:
- 2013/07/09 17:29:24
- Files:
Legend:
- Added
- Removed
- Modified
-
utf8/plugins/users/lib/users/UserProfile.pm
91 91 push @{$self->{$multi_field}}, $cred; 92 92 $self->{$main_field} = $cred if $cred->main; 93 93 } 94 if ( ref $self->{credentials_available} eq 'HASH' ) { 95 foreach my $main_field ( keys %{$self->{credentials_available}} ) { 96 my $multi_field = $main_field.'s'; 97 unless ( $self->{$main_field} ) { 98 $self->{$main_field} = $self->{$multi_field}->[0]; 99 } 100 } 101 } 94 102 } 95 103 } 96 104 }