Archived
1
0

Fix errors on remove and update

This commit is contained in:
Mercier Pierre-Olivier 2013-09-03 08:07:29 +02:00
parent dd3445ca95
commit 49a1c9a8b9

View File

@ -90,10 +90,10 @@ sub _remove($$)
my @data; my @data;
for (my $i = $args->{unamed}; $i > 0; $i--) { for (my $i = $args->{unamed}; $i > 0; $i--) {
push @data, $i; push @data, $args->{param}{$i};
} }
return LDAP::delete_attributes($ldap, $dn, $cnt_type, @data); return LDAP::delete_attribute($ldap, $dn, $cnt_type, @data);
} }
sub _update($$) sub _update($$)
@ -108,7 +108,7 @@ sub _update($$)
my @data; my @data;
for (my $i = $args->{unamed}; $i > 0; $i--) { for (my $i = $args->{unamed}; $i > 0; $i--) {
push @data, $i; push @data, $args->{param}{$i};
} }
return LDAP::update_attribute($ldap, $dn, $cnt_type, @data); return LDAP::update_attribute($ldap, $dn, $cnt_type, @data);