Changeset 107 for LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Ad/objects.pm
- Timestamp:
- 05/14/09 03:08:41 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Ad/objects.pm
r106 r107 120 120 my ($self, %fields) = @_; 121 121 122 my $needup = 0;123 122 foreach (keys %fields) { 124 123 $self->get_field_name($_, 'w') or next; 125 124 $self->_populate_entry($self->{entry}, $_, $fields{$_}); 126 $needup = 1;127 125 } 128 126 129 $needup or return '0E0';130 127 my $mesg = $self->{entry}->update($self->base->ldap); 131 128 132 if ($mesg->code ) {129 if ($mesg->code && $mesg->code != 82) { 133 130 warn $mesg->error; 134 131 return;
Note: See TracChangeset
for help on using the changeset viewer.