diff options
| author | scgilardi <scgilardi@gmail.com> | 2009-03-09 00:35:35 +0000 |
|---|---|---|
| committer | scgilardi <scgilardi@gmail.com> | 2009-03-09 00:35:35 +0000 |
| commit | bcc84f320247b0f5e4173922937d5b2eb692e3d8 (patch) | |
| tree | 11feae7ed9c4fbf0d46c075ddcc9ab969b5827e6 /src/clojure/contrib/sql.clj | |
| parent | 222ade6869e10ee2a76bf5fce5335b3a853e0896 (diff) | |
sql: add insert-records and test for it
Diffstat (limited to 'src/clojure/contrib/sql.clj')
| -rw-r--r-- | src/clojure/contrib/sql.clj | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/clojure/contrib/sql.clj b/src/clojure/contrib/sql.clj index b3c61ae7..18d87d95 100644 --- a/src/clojure/contrib/sql.clj +++ b/src/clojure/contrib/sql.clj @@ -132,6 +132,13 @@ [table & rows] (apply insert-values table nil rows)) +(defn insert-records + "Inserts records into a table. records are maps from strings or + keywords (identifying columns) to values." + [table & records] + (doseq [record records] + (insert-values table (keys record) (vals record)))) + (defn delete-rows "Deletes rows from a table. where-params is a vector containing a string providing the (optionally parameterized) selection criteria followed by |