From 49a1c9a8b968e5012ce3271cdc384b3d2eee3812 Mon Sep 17 00:00:00 2001
From: Mercier Pierre-Olivier <nemunaire@acu.epita.fr>
Date: Tue, 3 Sep 2013 08:07:29 +0200
Subject: [PATCH] Fix errors on remove and update

---
 process/ldap/update_group.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/process/ldap/update_group.pl b/process/ldap/update_group.pl
index 25d0b22..6e6b1ad 100644
--- a/process/ldap/update_group.pl
+++ b/process/ldap/update_group.pl
@@ -90,10 +90,10 @@ sub _remove($$)
 
     my @data;
     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($$)
@@ -108,7 +108,7 @@ sub _update($$)
 
     my @data;
     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);