 
 
 
+;zzz
+(defn clear-client-table-caches-for  [db-table]
+  (log (str  "********************clear-client-table-caches-for: " db-table ":" (keys @(:values @(get @client-record-cache  (keyword db-table))))))
+
+  (doall (map
+    (fn [x]
+      (go
+        (let [
+               record-request     {:source              (keyword db-table)
+                                   :db-table            (name db-table)
+                                   :fields              (get-default-fields-for-data-source  db-table)
+                                   :id                   x
+                                   :data-session-id     @data-session-id
+                                   :realtime            true
+                                   :force               true
+                                   }]
+          (log "*************    :" record-request)
+          (>! client-record-cache-requests   record-request))))
+
+      (keys @(:values @(get @client-record-cache  (keyword db-table))))
+    ))
+
+  nil
+  )
 
 
 

                                 :data-session-id     @data-session-id
                                 :realtime            (get query :realtime)
                                 }]
         ;(log "    :" record-request)
         (>! client-record-cache-requests   record-request)))
      )))



  (let [ds-fields          (get  @client-datasource-fields   data-source)
        fields-atom        (atom fields)                            ]

    (log (str "keep-client-fields-up-tp-date: " data-source ":" fields))

    (if (nil? ds-fields)
      (swap! client-datasource-fields  assoc  data-source  fields-atom)
