Only deleting list from datastore when it is not anonymous (i.e., it …

…was randomly generated)

src/crowdsort/core.clj

@@ -23,9 +23,13 @@
     (memcache/put! "current-list" (:elements new-list))
     (memcache/put! "current-list-owner-email" (:owner-email new-list))))
 
+(declare get-list-owner-email)
 (defn delete-current-list-object []
   (let [current-list-object (first (ds/query :kind ListToSort :sort [:submission-time]))]
-    (ds/delete! current-list-object)))
+    ;; FIXME: this is a hack. Let's have a better way of indicating whether the list is submitted
+    ;; or randomly generated.
+    (if (not (nil? (get-list-owner-email)))
+      (ds/delete! current-list-object))))
 
 ;; Get from memcache
 (defn get-list []