Changeset 1706 for trunk/LATMOS-Accounts
- Timestamp:
- 02/03/16 05:39:24 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Ldap/User.pm
r1705 r1706 43 43 44 44 sub _key_attr { 'cn' } 45 46 sub _key_attribute {47 my ($self, $base) = @_;48 $base ||= $self->base;49 50 $base->config($self->type . '_key_attribute') || 'uid';51 }52 45 53 46 sub _my_ldap_classes { qw( … … 173 166 $entry->replace(objectClass => 174 167 [ $class->_my_ldap_classes ],); 175 $data{cn} ||= [ grep { $_ } 176 join(' ', $data{givenName},$data{sn}), 177 $id 178 ]; # cn is mandatory 168 $data{cn} ||= $data{sn} || $id; # cn is mandatory 179 169 $data{sn} ||= $id; # sn is mandatory 180 170 $data{uid} ||= $id; # uid is mandatory … … 230 220 }; 231 221 $self->SUPER::get_field($field); 232 }233 234 sub set_fields {235 my ($self, %fields) = @_;236 237 if (exists($fields{givenName}) || exists($fields{sn})) {238 my $gn = $fields{givename} || $self->_get_attributes('givenName');239 my $sn = $fields{sn} || $self->_get_attributes('sn');240 my @cn = grep { $_ } (241 join(' ', $gn, $sn),242 $self->id);243 $self->_populate_entry($self->{entry}, 'cn', \@cn);244 }245 246 $self->SUPER::set_fields(%fields);247 222 } 248 223
Note: See TracChangeset
for help on using the changeset viewer.