Fix errors on remove and update
This commit is contained in:
parent
dd3445ca95
commit
49a1c9a8b9
@ -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);
|
||||||
|
Reference in New Issue
Block a user