 
 
 
-(defn get-default-fields-for-data-source [data-source-id]
-
-  (let [fields-atom          (-> @client-datasource-fields  data-source-id)
-        fields-entry         (if fields-atom (into [] @fields-atom))   ]
-
-    ;(log (pr-str "Read fields: " fields-entry))
-
-    (if fields-entry
-      fields-entry)))
-
-
-;(get-default-fields-for-data-source  :cvs)
-
-
 
 
 

    (swap!  (get record :queries) conj  query)


    (if (not @(get record :value))
      (go
       (let [
             record-request     {:source              (query :data-source)
                                 :db-table            (query :db-table)
                                 :fields              (get-default-fields-for-data-source (query :data-source))
                                 :id                   record-id
                                 :data-session-id     @data-session-id
                                 :realtime            (get query :realtime)
                                 }]
         (log "    :" record-request)
         (>! client-record-cache-requests   record-request)))
      )))



