reject supported.

2017-12-09 13:33:03 -08:00
parent bc6db905a5
commit 749b7b9633
4 changed files with 26 additions and 1 deletions
--- a/src/clj/auto_ap/db/invoices.clj
+++ b/src/clj/auto_ap/db/invoices.clj
@@ -14,6 +14,9 @@
 (defn approve []
  (map db->clj (j/update! conn :invoices {:imported true} [] )))

+(defn reject []
+  (j/delete! conn :invoices ["imported = false"]))
+
 (defn get-unpaid []
  (map db->clj (j/query conn "SELECT * FROM invoices WHERE imported=true")))