diff --git a/README.md b/README.md index 1291ce7..828112e 100644 --- a/README.md +++ b/README.md @@ -89,8 +89,7 @@ a map in the form: :attribute-e [value1 value2]} :replace {:attibute-d value - :attribute-e [value1 value2]} - :increment [:attribute-f attribute-g]} + :attribute-e [value1 value2]}} All the keys in the map are optional e.g: diff --git a/src/clj_ldap/client.clj b/src/clj_ldap/client.clj index ae46d6a..4e72570 100644 --- a/src/clj_ldap/client.clj +++ b/src/clj_ldap/client.clj @@ -155,14 +155,6 @@ (for [[k v] modify-map] (create-modification modify-op (name k) v))) -(defn- modify-incs - "Returns a sequence of Modification objects that increment the given - attribute(s)" - [attributes] - (if attributes - (if (coll? attributes) - (map #(Modification. ModificationType/INCREMENT %) attributes) - [(Modification. ModificationType/INCREMENT attributes)]))) (defn- get-modify-request "Sets up a ModifyRequest object using the contents of the given map" @@ -170,9 +162,8 @@ (let [adds (modify-ops ModificationType/ADD (modifications :add)) deletes (modify-ops ModificationType/DELETE (modifications :delete)) replacements (modify-ops ModificationType/REPLACE - (modifications :replace)) - incs (modify-incs (modifications :increment))] - (ModifyRequest. dn (into-array (concat adds deletes replacements incs))))) + (modifications :replace))] + (ModifyRequest. dn (into-array (concat adds deletes replacements))))) ;;=========== API ============================================================== @@ -234,8 +225,7 @@ :attribute-e [value1 value2]} :replace {:attibute-d value - :attribute-e [value1 value2]} - :increment [:attribute-f attribute-g]} + :attribute-e [value1 value2]}} " [connection dn modifications] (let [modify-obj (get-modify-request dn modifications)]