 
 
 
-(defn dissoc-in
-  "Dissociates an entry from a nested associative structure returning a new
-  nested structure. keys is a sequence of keys. Any empty maps that result
-  will not be present in the new structure."
-  [m [k & ks :as keys]]
-  (if ks
-    (if-let [nextmap (get m k)]
-      (let [newmap (dissoc-in nextmap ks)]
-        (if (seq newmap)
-          (assoc m k newmap)
-          (dissoc m k)))
-      m)
-    (dissoc m k)))
-
-
-
-
 (defn delete-query-from-realtime-update  [ query-key     data-session-id ]
   (let [client-data-atom         (if server-side-realtime-clients  (get @server-side-realtime-clients  data-session-id))
         response-atom            (if client-data-atom  client-data-atom )

  (catch Exception e
    (str "Error connecting to database: " (.getMessage e))))





        update-request           (if update-request-atom  @update-request-atom)
        ]
    (println (str "      update-request: " update-request))
    (swap! update-request-atom  dissoc-in  [:records table-name record-id])
  ))


