diff options
| -rw-r--r-- | src/logikorr/servlet.clj | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/src/logikorr/servlet.clj b/src/logikorr/servlet.clj index 7160f1f..10ef5d5 100644 --- a/src/logikorr/servlet.clj +++ b/src/logikorr/servlet.clj @@ -144,9 +144,16 @@ (let [current (current-revision) students (find-students) new (ds/create {:kind "revision" - :number (inc (:number current))})] - (doseq [student students] - (ds/create (assoc (dissoc student :key) :kind "student") (:key new))) + :number (inc (:number current))}) + new-key (:key new) + datastore (DatastoreServiceFactory/getDatastoreService)] + (.put datastore + (map (fn [student] + (doto (Entity. "student" #^Key new-key) + (.setProperty "first-name" (:first-name student)) + (.setProperty "last-name" (:last-name student)) + (.setProperty "score" (:score student)))) + students)) (str (:number new))))) (defn call-with-authentication [thunk] |