From f0eb2a7d18417d36dbb8f70660ee21d39c9a98f6 Mon Sep 17 00:00:00 2001
From: Simon Brooke <simon@journeyman.cc>
Date: Sun, 5 Aug 2018 17:17:08 +0100
Subject: [PATCH] Create and Update now work.

Still further work to do - not getting the id back correctly from insert - but it's beginning to work
---
 src/adl/to_selmer_routes.clj | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/src/adl/to_selmer_routes.clj b/src/adl/to_selmer_routes.clj
index a517e86..34dfad4 100644
--- a/src/adl/to_selmer_routes.clj
+++ b/src/adl/to_selmer_routes.clj
@@ -311,6 +311,13 @@
     (list
       'let
       (vector
+        'insert-params (list
+                         'prepare-insertion-params
+                         'params
+                         (set
+                           (map
+                             #(-> % :attrs :name)
+                             (insertable-properties e))))
         'result
         (list
           'valid-user-or-forbid
@@ -324,14 +331,14 @@
                 (list
                   update-name
                   'db/*db*
-                  'params)
+                  'insert-params)
                 200)
               (list
                 'do-or-server-fail
                 (list
                   create-name
                   'db/*db*
-                  'params)
+                  'insert-params)
                 201))
             'params
             (set